home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / Multiplay.s < prev    next >
Encoding:
Text File  |  1996-07-29  |  255.0 KB  |  17,237 lines
  1. CHEESEY equ 0
  2.  
  3. *************************************************
  4. * Stuff to do to get a C2P version:
  5. * Change copperlist
  6. * Change wall drawing
  7. * change floor drawing
  8. * change object drawing
  9. * change polygon drawing (ugh)
  10. * Write a palette generator program in AMOS
  11. * to provide a good 256 colour palette and
  12. * convert all graphics files specified
  13. * (possibly included in the game linker
  14. * program).
  15. * Possibly change the wall/floor/object
  16. * palettes to look nicer with more shades.
  17. * RE-implement stippling (if not present)
  18. * as it will look gorgeous now.
  19. *************************************************
  20.  
  21. ;MIDDLEX set 96
  22. ;RIGHTX set 191
  23. ;BOTTOMY set 160 
  24.  
  25. ;MIDDLEX set 96
  26. ;RIGHTX set 191
  27. ;BOTTOMY set 160
  28.  
  29. _break    macro
  30. ;    bkpt    \1
  31.     endm
  32.  
  33.  
  34. FILTER    macro
  35. ;    move.l    d0,-(sp)
  36. ;    move.l    #65000,d0
  37. ;.loop\@
  38. ;    bchg    #1,$bfe001
  39. ;    dbra    d0,.loop\@
  40. ;    move.l    (sp)+,d0
  41.     endm
  42.  
  43. BLACK    macro
  44.     move.w    #0,$dff180
  45.     endm
  46.  
  47. RED    macro
  48.     move.w    #$f00,$dff180
  49.     endm
  50.  
  51. FLASHER macro
  52. ;    movem.l    d1,-(sp)
  53. ;    move.w    #-1,d1
  54. ;
  55. ;loop3\@
  56. ;;    move.w    #\1,$dff180
  57. ;    nop
  58. ;    nop
  59. ;    move.w    #\2,$dff180
  60. ;    nop
  61. ;    nop
  62. ;    dbra    d1,loop3\@
  63.  
  64. ;    movem.l    (sp)+,d1
  65.  
  66.     endm
  67.  
  68. GREEN    macro
  69.     move.w    #$0f0,$dff180
  70.     endm
  71.  
  72. BLUE    macro
  73.     move.w    #$f,$dff180
  74.     endm
  75.  
  76. DataCacheOff macro
  77.     movem.l    a0-a6/d0-d7,-(sp)
  78.     move.l    4.w,a6
  79.     moveq    #0,d0
  80.     move.l    #%0000000100000000,d1
  81.     jsr    _LVOCacheControl(a6)
  82.     movem.l    (sp)+,a0-a6/d0-d7
  83.     endm
  84.  
  85. DataCacheOn macro
  86.     movem.l    a0-a6/d0-d7,-(sp)
  87.     move.l    4.w,a6
  88.     moveq    #-1,d0
  89.     move.l    #%0000000100000000,d1
  90.     jsr    _LVOCacheControl(a6)
  91.     movem.l    (sp)+,a0-a6/d0-d7
  92.     endm
  93.  
  94.     opt    P=68020
  95.  
  96.     include utils:sysinc/hardware/intbits.i
  97.  
  98. CD32VER equ 0
  99.  
  100. maxscrdiv EQU 8
  101. max3ddiv EQU 5
  102. playerheight EQU 12*1024
  103. playercrouched EQU 8*1024
  104. scrheight EQU 80
  105.  
  106. ; k/j/m
  107.  
  108. ; 4/8
  109. ; s/x
  110. ; b/n
  111.  
  112. midoffset EQU 104*4*40
  113.  
  114.  
  115.  SECTION Scrn,CODE
  116. OpenLib       equ -552
  117. CloseLib      equ -414
  118.  
  119. INTREQ        equ    $09C
  120. INTENA        equ    $09A
  121. INTENAR    equ    $01C
  122. DMACON        equ    $096
  123.  
  124. SERPER        equ    $032
  125. SERDATR    equ    $018
  126. SERDAT        equ    $030
  127. vhposr        equ $006    
  128. vhposrl    equ $007 
  129.  
  130. bltcon0    equ $40 
  131. bltcon1    equ $42
  132. bltcpt        equ $48
  133. bltbpt        equ $4c
  134. bltapt        equ $50
  135. spr0ctl    equ $142
  136. spr1ctl    equ $14a
  137. spr2ctl    equ $152
  138. spr3ctl    equ $15a
  139. spr4ctl    equ $162
  140. spr5ctl    equ $16a
  141. spr6ctl    equ $172
  142. spr7ctl    equ $17a
  143. spr0pos    equ $140
  144. spr1pos    equ $148
  145. spr2pos    equ $150
  146. spr3pos    equ $158
  147. spr4pos    equ $160
  148. spr5pos    equ $168
  149. spr6pos    equ $170
  150. spr7pos    equ $178
  151. bltdpt         equ $54
  152. bltafwm    equ $44
  153. bltalwm    equ $46
  154. bltsize         equ $58
  155. bltcmod         equ $60
  156. bltbmod         equ $62
  157. bltamod         equ $64
  158. bltdmod         equ $66
  159. diwstart        equ $8e         ; Screen hardware registers.
  160. diwstop         equ $90
  161. ddfstart        equ $92
  162. ddfstop         equ $94
  163. bplcon0         equ $100
  164. bplcon1         equ $102
  165. col0            equ $180
  166. col1            equ $182
  167. col2        equ $184
  168. col3        equ $186
  169. col4        equ $188
  170. col5        equ $18a
  171. col6        equ $18c
  172. col7        equ $18e
  173. col8            equ $190
  174. col9            equ $192
  175. col10           equ $194
  176. col11           equ $196
  177. col12           equ $198
  178. col13           equ $19a
  179. dmacon        equ $96
  180. dmaconr        equ $002
  181. intenar        equ $01c
  182. intena        equ $09a
  183. intreq        equ $09c
  184. intreqr        equ $01e
  185. intreqrl    equ $01f
  186. bpl1pth         equ $e0
  187. bpl1ptl         equ $e2
  188. bpl2pth        equ $e4
  189. bpl2ptl        equ $e6
  190. bpl3pth        equ $e8
  191. bpl3ptl        equ $ea
  192. bpl4pth        equ $ec
  193. bpl4ptl        equ $ee
  194. bpl5pth        equ $f0
  195. bpl5ptl        equ $f2
  196. bpl6pth        equ $f4
  197. bpl6ptl        equ $f6
  198. bpl7pth        equ $f8
  199. bpl7ptl        equ $fa
  200. bpl8pth        equ $fc
  201. bpl8ptl        equ $fe
  202. spr0pth        equ $120
  203. spr0ptl        equ $122
  204. spr1pth        equ $124
  205. spr1ptl        equ $126
  206. spr2pth        equ $128
  207. spr2ptl        equ $12a
  208. spr3pth        equ $12c
  209. spr3ptl        equ $12e
  210. spr4pth        equ $130
  211. spr4ptl        equ $132
  212. spr5pth        equ $134
  213. spr5ptl        equ $136
  214. spr6pth        equ $138
  215. spr6ptl        equ $13a
  216. spr7pth        equ $13c
  217. spr7ptl        equ $13e
  218. adkcon        equ   $09E
  219.  
  220.  
  221. ; move.l #length,d0
  222. ; moveq.l #2,d1    ; chipmem
  223. ; move.l 4.w,a6
  224. ; jsr allocmem(a6) = -198
  225.  
  226. ; tst.l d0
  227. ; beq.s ohbugger
  228. ; move.l d0,memaddr
  229.  
  230.  
  231. ; move.l 4.w,a6
  232. ; move.l memaddr,a1
  233. ; move.l #size,d0
  234. ; jsr freemem(a6) =-210
  235.  
  236.  
  237. ** This waits for the blitter to finish before allowing program
  238. ** execution to continue.
  239.  
  240.  
  241.  include "ab3:source_4000/protsetupdecode"
  242.  
  243. SAVEREGS MACRO
  244.  movem.l d0-d7/a0-a6,-(a7)
  245.  ENDM
  246.  
  247. GETREGS MACRO
  248.  movem.l (a7)+,d0-d7/a0-a6
  249.  ENDM
  250.  
  251.  
  252. WB MACRO
  253. \@bf:
  254.  btst #6,dmaconr(a6)
  255.  bne.s \@bf
  256.  ENDM
  257.  
  258. WBa MACRO
  259. \@bf:
  260.  move.w #\2,$dff180
  261.  
  262.  btst #6,$bfe001
  263.  bne.s \@bf
  264. \@bz:
  265.  
  266.  move.w #$f0f,$dff180
  267.  
  268.  btst #6,$bfe001
  269.  beq.s \@bz
  270.  
  271.  ENDM
  272.  
  273. *Another version for when a6 <> dff000
  274.  
  275. WBSLOW MACRO
  276. \@bf:
  277.  btst #6,$dff000+dmaconr
  278.  bne.s \@bf
  279.  ENDM
  280.  
  281. WT MACRO
  282. \@bf:
  283.  btst #6,(a3)
  284.  bne.s \@bd
  285.  rts
  286. \@bd: 
  287.  btst #4,(a0)
  288.  beq.s \@bf
  289.  ENDM
  290.  
  291. WTNOT MACRO
  292. \@bf:
  293.  btst #6,(a3)
  294.  bne.s \@bd
  295.  rts
  296. \@bd: 
  297.  btst #4,(a0)
  298.  bne.s \@bf
  299.  ENDM
  300.  
  301. **
  302.  
  303.  include "ab3:source_4000/ProtectionProtection"
  304.  include "macros.i"
  305.  include "ab3:source_4000/defs.i"
  306.  
  307. ;wtclickk:
  308. ; btst #6,$bfe001
  309. ; bne.s wtclickk
  310.  
  311.  move.w (a0)+,WHICHAMI
  312.  
  313.  cmp.b #'2',WHICHAMI
  314.  bne.s nomas
  315.  jsr InitParMaster
  316. nomas
  317.  
  318.  cmp.b #'3',WHICHAMI
  319.  bne.s noslave
  320.  jsr InitParSlave
  321. noslave:
  322.  
  323.  
  324.  jsr MakePatch
  325.  
  326. ;    FLASHER $0f0,$fff
  327.  
  328. ; PROTFCALC
  329. ; PROTGCALC
  330. ; PROTHCALC
  331. ; PROTICALC
  332. ; PROTKCALC
  333. ; PROTLCALC
  334. ; PROTMCALC
  335.  
  336.  
  337.  
  338.  move.l #$dff000,a6    ; NB V. IMPORTANT: A6=CUSTOM BASE
  339.  move.w intenar(a6),_storeint
  340.  and.w #$c000,_storeint
  341.  
  342.  move.w #31,SERPER(a6)    ;19200 baud, 8 bits, no parity
  343.  
  344.  
  345.  st GOURSEL
  346.  
  347.  
  348.  move.l 4.w,a6
  349.  lea VBLANKInt(pc),a1
  350.  moveq #INTB_COPER,d0
  351.  jsr _LVOAddIntServer(a6)
  352.  
  353.     IFEQ CD32VER
  354.  move.l 4.w,a6
  355.  lea KEYInt(pc),a1
  356.  moveq #INTB_PORTS,d0
  357.  jsr _LVOAddIntServer(a6)
  358.     ENDC
  359.  
  360.  WBSLOW
  361.  
  362.  
  363.  IFNE CD32VER
  364.  clr.b PLR1KEYS
  365.  clr.b PLR1PATH
  366.  clr.b PLR1MOUSE
  367.  st PLR1JOY
  368.  clr.b PLR2KEYS
  369.  clr.b PLR2PATH
  370.  clr.b PLR2MOUSE
  371.  st PLR2JOY
  372.  ELSE
  373.  st PLR1KEYS
  374.  clr.b PLR1PATH
  375.  clr.b PLR1MOUSE
  376.  clr.b PLR1JOY
  377.  st PLR2KEYS
  378.  clr.b PLR2PATH
  379.  clr.b PLR2MOUSE
  380.  clr.b PLR2JOY
  381.  ENDC
  382.  
  383.  PRSDO
  384.  
  385.  move.l #2,d1    
  386.  move.l #10280*2,d0
  387.  move.l 4.w,a6
  388.  jsr -198(a6)
  389.  move.l d0,TEXTSCRN
  390.  move.w d0,TSPTl
  391.  swap d0
  392.  move.w d0,TSPTh
  393.  swap d0
  394.  add.w #80,d0
  395.  move.w d0,TSPTl2
  396.  swap d0
  397.  move.w d0,TSPTh2
  398.  
  399.  move.l #nullspr,d0
  400.  move.w d0,txs0l
  401.  move.w d0,txs1l
  402.  move.w d0,txs2l
  403.  move.w d0,txs3l
  404.  move.w d0,txs4l
  405.  move.w d0,txs5l
  406.  move.w d0,txs6l
  407.  move.w d0,txs7l
  408.  swap d0
  409.  move.w d0,txs0h
  410.  move.w d0,txs1h
  411.  move.w d0,txs2h
  412.  move.w d0,txs3h
  413.  move.w d0,txs4h
  414.  move.w d0,txs5h
  415.  move.w d0,txs6h
  416.  move.w d0,txs7h 
  417.  
  418.  move.l #0,d1    
  419.  move.l #140000,d0
  420.  move.l 4.w,a6
  421.  jsr -198(a6)
  422.  move.l d0,LEVELDATA
  423.  
  424.  move.l #0,d1
  425.  
  426.  ifeq CHEESEY    
  427.  move.l #320*256,d0
  428.  endc
  429.  
  430.  ifne CHEESEY
  431.  move.l #320*160,d0
  432.  endc
  433.  
  434.  move.l 4.w,a6
  435.  jsr -198(a6)
  436.  move.l d0,FASTBUFFER
  437.  
  438.  
  439.  move.l #consttab,a0
  440.  moveq #1,d0
  441.  move.w #8191,d1
  442. fillconst:
  443.  
  444.  move.l #16384*64,d2
  445.  divs.l d0,d2
  446. ; ext.l d2    ;c#
  447.  move.l #64*64*65536,d3
  448.  divs.l d2,d3
  449. ; move.l d3,d4
  450. ; asr.l #6,d4
  451.  move.l d3,(a0)+    ;e#
  452.   
  453.  asr.l #1,d2    ; c#/2.0
  454.  sub.l #40*64,d2    ; d#
  455.  muls.l d3,d2    ; d#*e#
  456.  
  457.  asr.l #6,d2
  458.  move.l d2,(a0)+
  459.  
  460.  addq #1,d0
  461.  
  462.  dbra d1,fillconst
  463.  
  464.  jsr START
  465.  
  466.  rts
  467.  
  468. FASTBUFFER: dc.l 0
  469.  
  470. GUN_OBJ: dc.l 0
  471.  
  472. SYSTEMBLITINT: dc.l 0
  473.  
  474. _storeint
  475.     dc.w 0
  476.  
  477. * Load level into buffers.
  478.  clr.b doanything
  479.  clr.b dosounds
  480.  
  481. ; DRAW TEXT SCREEN
  482.  
  483. TWEENTEXT:
  484.  
  485.  move.l LEVELTEXT,a0
  486.  move.w PLOPT,d0
  487.  muls #82*16,d0
  488.  add.l d0,a0
  489.  
  490.  move.w #15,d7
  491.  move.w #0,d0
  492. DOWNTEXT:
  493.  move.l TEXTSCRN,a1
  494.  jsr DRAWLINEOFTEXT
  495.  addq #1,d0
  496.  add.w #82,a0
  497.  dbra d7,DOWNTEXT
  498.  rts
  499.  
  500. WHICHAMI: dc.b 0
  501. HOWMANY: dc.b 0
  502.  
  503. FONTADDRS:
  504.  dc.l ENDFONT0,CHARWIDTHS0
  505.  dc.l ENDFONT1,CHARWIDTHS1
  506.  dc.l ENDFONT2,CHARWIDTHS2
  507.  
  508. ENDFONT0:
  509.  incbin "endfont0"
  510. CHARWIDTHS0:
  511.  incbin "charwidths0"
  512. ENDFONT1:
  513. ; incbin "endfont1"
  514. CHARWIDTHS1:
  515. ; incbin "charwidths1"
  516. ENDFONT2:
  517. ; incbin "endfont2"
  518. CHARWIDTHS2:
  519. ; incbin "charwidths2"
  520.  
  521.  even
  522.  
  523. DRAWLINEOFTEXT:
  524.  movem.l d0/a0/d7,-(a7)
  525.  
  526.  muls #80*16,d0
  527.  add.l d0,a1    ; screen pointer
  528.  
  529.  move.l #FONTADDRS,a3
  530.  moveq #0,d0
  531.  move.b (a0)+,d0
  532.  move.l (a3,d0.w*8),a2
  533.  move.l 4(a3,d0.w*8),a3
  534.  
  535.  moveq #0,d4
  536.  
  537.  moveq #0,d1    ; width counter:
  538.  move.w #79,d6
  539.  tst.b (a0)+
  540.  beq.s NOTCENTRED
  541.  moveq #-1,d5
  542.  move.l a0,a4
  543.  moveq #0,d2
  544.  moveq #0,d3
  545.  move.w #79,d0    ; number of chars
  546. .addup:
  547.  addq #1,d5
  548.  move.b (a4)+,d2
  549.  move.b -32(a3,d2.w),d4
  550.  add.w d4,d3
  551.  cmp.b #32,d2
  552.  beq.s .DONTPUTIN
  553.  move.w d5,d6
  554.  move.w d3,d1
  555. .DONTPUTIN:
  556.  dbra d0,.addup
  557.  asr.w #1,d1
  558.  neg.w d1
  559.  add.w #320,d1    ; horiz pos of start x
  560.  
  561. NOTCENTRED:
  562.  move.w d6,d7
  563. DOACHAR:
  564.  moveq #0,d2
  565.  move.b (a0)+,d2
  566.  sub.w #32,d2
  567.  moveq #0,d6
  568.  move.b (a3,d2.w),d6
  569.  asl.w #5,d2
  570.  lea (a2,d2.w),a4    ; char font
  571. val SET 0
  572.  REPT 16
  573.  move.w (a4)+,d0
  574.  bfins d0,val(a1){d1:d6}
  575. val SET val+80
  576.  ENDR
  577.  add.w d6,d1
  578.  dbra d7,DOACHAR
  579.  movem.l (a7)+,d0/a0/d7
  580.  rts 
  581.  
  582.  
  583. CLRTWEENSCRN:
  584.  move.l TEXTSCRN,a0
  585.  move.w #(10240/16)-1,d0
  586.  move.l #$0,d1
  587. .lll
  588.  move.l d1,(a0)+
  589.  move.l d1,(a0)+
  590.  move.l d1,(a0)+
  591.  move.l d1,(a0)+
  592.  move.l d1,(a0)+
  593.  move.l d1,(a0)+
  594.  move.l d1,(a0)+
  595.  move.l d1,(a0)+
  596.  dbra d0,.lll
  597.  rts
  598.  
  599. LEVTOPLAY: dc.w 0
  600.  
  601. COPYLINK: dc.l 0
  602.  
  603. PLAYTHEGAME:
  604.  
  605.  move.w #0,TXTCOLL
  606.  move.w #0,MIXCOLL
  607.  move.w #0,TOPCOLL
  608.  
  609.  bsr CLRTWEENSCRN
  610.  
  611.  cmp.b #'n',mors
  612.  bne.s .notext
  613.  bsr TWEENTEXT
  614. .notext
  615.  
  616. ;charlie 
  617.  move.l #TEXTCOP,$dff080
  618.  
  619.  move.w #$10,d0
  620.  move.w #7,d1
  621.  
  622. .fdup
  623.  move.w d0,TXTCOLL
  624.  move.w d0,MIXCOLL
  625.  add.w #$121,d0
  626. .wtframe:
  627.  btst #5,$dff000+intreqrl
  628.  beq.s .wtframe
  629.  move.w #$0020,$dff000+intreq
  630.  dbra d1,.fdup
  631.  
  632.  
  633.  jsr INITCOPPERSCRN
  634.  
  635.  move.l #$dff000,a6
  636.  jsr SETPLAYERS
  637.  
  638.  move.l #0,TYPEOFMEM
  639.  move.l #LLname,a0
  640.  jsr LOADAFILE
  641.  move.l d0,LINKS
  642.  
  643.  move.l #0,TYPEOFMEM
  644.  move.l #LLFname,a0
  645.  jsr LOADAFILE
  646.  move.l d0,FLYLINKS
  647.  
  648. ; Get level memory.
  649.  
  650.  move.l #1,d1
  651.  move.l #40000,d0
  652.  move.l 4.w,a6
  653.  jsr -198(a6)
  654.  move.l d0,LEVELGRAPHICS
  655.  
  656.  move.l #1,d1
  657.  move.l #40000,d0
  658.  move.l 4.w,a6
  659.  jsr -198(a6)
  660.  move.l d0,LEVELCLIPS
  661.  
  662.  move.l #2,d1
  663.  move.l #70000,d0
  664.  move.l 4.w,a6
  665.  jsr -198(a6)
  666.  move.l d0,LEVELMUSIC
  667.  
  668.  move.l #$dff000,a6
  669.  
  670. ; move.b LEVTOPLAY,d0
  671. ; move.b d0,LEVA
  672. ; move.b d0,LEVB
  673. ; move.b d0,LEVC
  674. ; move.b d0,LEVD
  675. ; move.b d0,LEVE
  676.  
  677.  
  678. ; move.l #LEVELDATAD,LEVELDATA
  679. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  680. ; move.l #LEVELCLIPSD,LEVELCLIPS
  681.  
  682. ; bra noload
  683.  
  684. *********************************
  685.  
  686. ; move.l doslib,a6
  687. ; move.l #LLname,d1
  688. ; move.l #1005,d2
  689. ; jsr -30(a6)
  690. ; move.l d0,LLhandle
  691. ;
  692. ; move.l doslib,a6
  693. ; move.l d0,d1
  694. ; move.l #LINKS,d2
  695. ; move.l #10000,d3
  696. ; jsr -42(a6)
  697. ;
  698. ; move.l doslib,a6
  699. ; move.l LLhandle,d1
  700. ; jsr -36(a6)
  701.  
  702.  ********************************
  703.  
  704. ; move.l doslib,a6
  705. ; move.l #LLFname,d1
  706. ; move.l #1005,d2
  707. ; jsr -30(a6)
  708. ; move.l d0,LLhandle
  709.  
  710. ; move.l doslib,a6
  711. ; move.l d0,d1
  712. ; move.l #FLYLINKS,d2
  713. ; move.l #10000,d3
  714. ; jsr -42(a6)
  715.  
  716. ; move.l doslib,a6
  717. ; move.l LLhandle,d1
  718. ; jsr -36(a6)
  719.  
  720.  ************************
  721.  ********
  722.  
  723.  moveq #0,d1
  724.  move.b LEVA,d1
  725.  sub.b #'a',d1
  726.  lsl.w #6,d1
  727.  move.l LINKFILE,a6
  728.  add.l #LevelMusic,a6
  729.  add.l d1,a6
  730.  move.l a6,d1
  731.  
  732.  move.l doslib,a6
  733.  
  734.  move.l #1005,d2
  735.  jsr -30(a6)
  736.  move.l d0,LDhandle
  737.  
  738.  move.l doslib,a6
  739.  move.l d0,d1
  740.  move.l LEVELCLIPS,d2
  741.  move.l #40000,d3
  742.  jsr -42(a6)
  743.  
  744.  move.l doslib,a6
  745.  move.l LDhandle,d1
  746.  jsr -36(a6)
  747.  
  748. *************************************
  749.     move.l    LEVELCLIPS,d0
  750.     moveq    #0,d1
  751.     move.l LEVELMUSIC,a0
  752.     lea    WorkSpace,a1
  753.     lea    $0,a2
  754.     jsr    unLHA
  755. *************************************
  756.  
  757.  
  758.  move.l doslib,a6
  759.  move.l #LDname,d1
  760.  move.l #1005,d2
  761.  jsr -30(a6)
  762.  move.l d0,LDhandle
  763.  
  764.  move.l doslib,a6
  765.  move.l d0,d1
  766.  move.l LEVELCLIPS,d2
  767.  move.l #40000,d3
  768.  jsr -42(a6)
  769.  
  770.  move.l doslib,a6
  771.  move.l LDhandle,d1
  772.  jsr -36(a6)
  773.  
  774. *************************************
  775.     move.l    LEVELCLIPS,d0
  776.     moveq    #0,d1
  777.     move.l LEVELDATA,a0
  778.     lea    WorkSpace,a1
  779.     lea    $0,a2
  780.     jsr    unLHA
  781. *************************************
  782.  
  783. ********
  784.  
  785.  move.l doslib,a6
  786.  move.l #LGname,d1
  787.  move.l #1005,d2
  788.  jsr -30(a6)
  789.  move.l d0,LGhandle
  790.  
  791.  move.l doslib,a6
  792.  move.l d0,d1
  793.  move.l LEVELCLIPS,d2
  794.  move.l #40000,d3
  795.  jsr -42(a6)
  796.  
  797.  move.l doslib,a6
  798.  move.l LGhandle,d1
  799.  jsr -36(a6)
  800.  
  801. *************************************
  802.     move.l    LEVELCLIPS,d0
  803.     moveq    #0,d1
  804.     move.l LEVELGRAPHICS,a0
  805.     lea    WorkSpace,a1
  806.     lea    $0,a2
  807.     jsr    unLHA
  808. *************************************
  809.  
  810. ********
  811.  
  812.  move.l doslib,a6
  813.  move.l #LCname,d1
  814.  move.l #1005,d2
  815.  jsr -30(a6)
  816.  move.l d0,LChandle
  817.  
  818.  move.l doslib,a6
  819.  move.l d0,d1
  820.  move.l #WorkSpace+16384,d2
  821.  move.l #16000,d3
  822.  jsr -42(a6)
  823.  
  824.  move.l doslib,a6
  825.  move.l LChandle,d1
  826.  jsr -36(a6)
  827.  
  828. *************************************
  829.     move.l    #WorkSpace+16384,d0
  830.     moveq    #0,d1
  831.     move.l LEVELCLIPS,a0
  832.     lea    WorkSpace,a1
  833.     lea    $0,a2
  834.     jsr    unLHA
  835. *************************************
  836.  
  837.  
  838. *******
  839.  
  840. noload:
  841.  
  842. ********
  843.  
  844. ; move.l doslib,a6
  845. ; move.l #Prefsname,d1
  846. ; move.l #1005,d2
  847. ; jsr -30(a6)
  848. ; move.l d0,Prefshandle
  849.  
  850. ; move.l doslib,a6
  851. ; move.l d0,d1
  852. ; move.l #Prefsfile,d2
  853. ; move.l #50,d3
  854. ; jsr -42(a6)
  855.  
  856. ; move.l doslib,a6
  857. ; move.l Prefshandle,d1
  858. ; jsr -36(a6)
  859.  
  860. *******
  861.  
  862.  IFNE CD32VER
  863.  move.l doslib,a6
  864.  move.l #115,d1
  865.  jsr -198(a6)
  866.  ENDC
  867.  
  868.  
  869. ; move.l doslib,d0
  870. ; move.l d0,a1
  871. ; move.l 4.w,a6
  872. ; jsr CloseLib(a6)
  873.  
  874.  move.l #$dff000,a6
  875.  
  876. charlie:
  877. ; jmp  ENDGAMESCROLL
  878.  
  879.     move.w #$87c0,dmacon(a6)
  880.  
  881.     move.w    #%1000000000100000,dmacon(a6)
  882.  
  883. ; move.w intenar(a6),saveinters
  884.     
  885.     move.w #%00101111,intena(a6)
  886.  
  887.     move.w #255,adkcon(a6)
  888.  
  889.  
  890. *** Put myself in supervisor mode
  891.  
  892.  bra blag
  893. ; move.l $6c,d0
  894. ; move.l #blag,$6c
  895. ; move.w #$8010,intreq(a6)
  896.  
  897.  rts
  898.  
  899. saveit: ds.l 10
  900. doslibname: dc.b 'dos.library',0
  901.  even
  902. doslib: dc.l 0
  903.  
  904. mors: dc.w 0
  905.  
  906. LDname: dc.b 'tkg2:levels/level_'
  907. LEVA:
  908.  dc.b 'a/twolev.bin',0
  909.  even
  910. LDhandle: dc.l 0
  911. LGname: dc.b 'tkg2:levels/level_'
  912. LEVB:
  913.  dc.b 'a/twolev.graph.bin',0
  914.  even
  915. LGhandle: dc.l 0
  916. LCname: dc.b 'tkg2:levels/level_'
  917. LEVC:
  918.  dc.b 'a/twolev.clips',0
  919.  even
  920. LChandle: dc.l 0
  921. LLname: dc.b 'tkg2:levels/level_'
  922. LEVD:
  923.  dc.b 'a/twolev.map',0
  924.  even
  925. LLFname: dc.b 'tkg2:levels/level_'
  926. LEVE:
  927.  dc.b 'a/twolev.flymap',0
  928.  even
  929. LLhandle: dc.l 0
  930.  
  931.     cnop    0,4
  932.  
  933. Prefsname: dc.b 'ram:prefs',0
  934.  even
  935. Prefshandle: dc.l 0
  936.  
  937.  
  938.  even
  939.  
  940.  cnop 0,4
  941.  
  942. VBLANKInt:
  943.  dc.l 0,0
  944.  dc.b NT_INTERRUPT,9
  945.  dc.l Prefsname
  946.  dc.l 0
  947.  dc.l Chan0inter
  948.  
  949. KEYInt:
  950.  dc.l 0,0
  951.  dc.b NT_INTERRUPT,127
  952.  dc.l Prefsname
  953.  dc.l 0
  954.  dc.l key_interrupt
  955.  
  956. BLITInt:
  957.  dc.l 0,0
  958.  dc.b NT_INTERRUPT,127
  959.  dc.l Prefsname
  960.  dc.l 0
  961.  dc.l BlitterInterrupt
  962.  
  963.  
  964. blag:
  965. ; move.w #$10,intreq(a6)
  966. ; move.l d0,$6c
  967. ; move.w #$7fff,intena(a6)
  968.  
  969. ; move.w #$20,$dff1dc
  970.  
  971. ; move.l 4.w,a6
  972. ; lea VBLANKInt(pc),a1
  973. ; moveq #INTB_COPER,d0
  974. ; jsr _LVOAddIntServer(a6)
  975.  
  976. ****************************
  977. * Initialize level
  978. ****************************
  979. * Poke all clip offsets into
  980. * correct bit of level data.
  981. ****************************
  982.  move.l LEVELGRAPHICS,a0
  983.  move.l 12(a0),a1
  984.  add.l a0,a1
  985.  move.l a1,ZoneGraphAdds
  986.  move.l (a0),a1
  987.  add.l a0,a1
  988.  move.l a1,DoorData
  989.  move.l 4(a0),a1
  990.  add.l a0,a1
  991.  move.l a1,LiftData
  992.  move.l 8(a0),a1
  993.  add.l a0,a1
  994.  move.l a1,SwitchData
  995.  adda.w #16,a0
  996.  move.l a0,ZoneAdds
  997.  
  998.  move.l LEVELDATA,a4
  999.  lea 160*10(a4),a1
  1000.  
  1001.  lea 54(a1),a2
  1002.  move.l a2,CPtPos
  1003.  move.w 12(a1),NumCPts
  1004.  move.w 14(a1),NumLevPts
  1005.  
  1006.  move.l 16+6(a1),a2
  1007.  add.l a4,a2
  1008.  move.l a2,Points
  1009.  move.w 8+6(a1),d0
  1010.  lea 4(a2,d0.w*4),a2
  1011.  move.l a2,PointBrights
  1012.  move.w 16(a1),d0
  1013.  addq #1,d0
  1014.  muls #80,d0
  1015.  add.l d0,a2
  1016.  move.l a2,ZoneBorderPts
  1017.  
  1018.  move.l 20+6(a1),a2
  1019.  add.l a4,a2
  1020.  move.l a2,FloorLines
  1021.  move.w -2(a2),ENDZONE
  1022.  move.l 24+6(a1),a2
  1023.  add.l a4,a2
  1024.  move.l a2,ObjectData
  1025. *****************************************
  1026. * Just for charles
  1027.  
  1028. ; move.w #$6060,6(a2)
  1029. ; move.l #$d0000,8(a2)
  1030. ; sub.w #40,4(a2)
  1031. ; move.w #45*256+45,14(a2)
  1032. ****************************************
  1033.  move.l 28+6(a1),a2
  1034.  add.l a4,a2
  1035.  move.l a2,PlayerShotData
  1036.  move.l 32+6(a1),a2
  1037.  add.l a4,a2
  1038.  move.l a2,NastyShotData
  1039.  
  1040.  add.l #64*20,a2
  1041.  move.l a2,OtherNastyData
  1042.  
  1043.  move.l 36+6(a1),a2
  1044.  add.l a4,a2
  1045.  move.l a2,ObjectPoints  
  1046.  move.l 40+6(a1),a2
  1047.  add.l a4,a2
  1048.  move.l a2,d0
  1049.  move.l #PLR1_Obj,a2
  1050.  
  1051.  REPT 8
  1052.  move.l d0,(a2)+
  1053.  add.l #64,d0
  1054.  ENDR
  1055.  move.l d0,GUN_OBJ
  1056.  
  1057.  move.l 44+6(a1),a2
  1058.  add.l a4,a2
  1059.  move.l a2,PLR2_Obj
  1060.  move.w 14+6(a1),NumObjectPoints
  1061.  
  1062. ; bra noclips
  1063.   
  1064.  move.l LEVELCLIPS,a2
  1065.  moveq #0,d0
  1066.  move.w 10+6(a1),d7    ;numzones
  1067.  move.w d7,NUMZONES
  1068. assignclips:
  1069.  move.l (a0)+,a3
  1070.  add.l a4,a3    ; pointer to a zone
  1071.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  1072. dowholezone:
  1073.  tst.w (a3)
  1074.  blt.s nomorethiszone
  1075.  tst.w 2(a3)
  1076.  blt.s thisonenull
  1077.  
  1078.  move.l d0,d1
  1079.  asr.l #1,d1
  1080.  move.w d1,2(a3)
  1081.  
  1082. findnextclip:
  1083.  cmp.w #-2,(a2,d0.l)
  1084.  beq.s foundnextclip
  1085.  addq.l #2,d0
  1086.  bra.s findnextclip
  1087. foundnextclip
  1088.  addq.l #2,d0
  1089.  
  1090. thisonenull:
  1091.  addq #8,a3 
  1092.  bra.s dowholezone
  1093. nomorethiszone:
  1094.  dbra d7,assignclips
  1095.  
  1096.  lea (a2,d0.l),a2
  1097.  move.l a2,CONNECT_TABLE
  1098.  
  1099. noclips:
  1100.  
  1101. * Put in addresses of glowything
  1102.  
  1103.  
  1104. ************************************
  1105.  
  1106. ; cmp.b #'k',Prefsfile
  1107. ; bne.s nkb
  1108.  
  1109. ;nkb:
  1110. ; cmp.b #'m',Prefsfile
  1111. ; bne.s nmc
  1112. ; clr.b PLR1KEYS
  1113. ; clr.b PLR1PATH
  1114. ; st PLR1MOUSE
  1115. ; clr.b PLR1JOY
  1116. ;nmc:
  1117. ; cmp.b #'j',Prefsfile
  1118. ; bne.s njc
  1119. ; clr.b PLR1KEYS
  1120. ; clr.b PLR1PATH
  1121. ; clr.b PLR1MOUSE
  1122. ; st PLR1JOY
  1123. ;njc:
  1124.  
  1125.  clr.b PLR1_StoodInTop
  1126.  move.l #playerheight,PLR1s_height
  1127.  
  1128.  move.l #empty,pos1LEFT
  1129.  move.l #empty,pos2LEFT
  1130.  move.l #empty,pos1RIGHT
  1131.  move.l #empty,pos2RIGHT
  1132.  move.l #empty,pos0LEFT
  1133.  move.l #empty,pos3LEFT
  1134.  move.l #empty,pos0RIGHT
  1135.  move.l #empty,pos3RIGHT
  1136.  move.l #emptyend,Samp0endLEFT
  1137.  move.l #emptyend,Samp1endLEFT
  1138.  move.l #emptyend,Samp0endRIGHT
  1139.  move.l #emptyend,Samp1endRIGHT
  1140.  move.l #emptyend,Samp2endLEFT
  1141.  move.l #emptyend,Samp3endLEFT
  1142.  move.l #emptyend,Samp2endRIGHT
  1143.  move.l #emptyend,Samp3endRIGHT
  1144.  
  1145.  
  1146.  move.l #nullline,d0
  1147.  move.w d0,n1l
  1148.  swap d0
  1149.  move.w d0,n1h
  1150.  
  1151.  move.l Panel,d0
  1152.  move.w d0,p1l
  1153.  swap d0
  1154.  move.w d0,p1h
  1155.  swap d0
  1156.  add.l #40,d0
  1157.  move.w d0,p2l
  1158.  swap d0
  1159.  move.w d0,p2h
  1160.  swap d0
  1161.  add.l #40,d0
  1162.  move.w d0,p3l
  1163.  swap d0
  1164.  move.w d0,p3h
  1165.  swap d0
  1166.  add.l #40,d0
  1167.  move.w d0,p4l
  1168.  swap d0
  1169.  move.w d0,p4h
  1170.  swap d0
  1171.  add.l #40,d0
  1172.  move.w d0,p5l
  1173.  swap d0
  1174.  move.w d0,p5h
  1175.  swap d0
  1176.  add.l #40,d0
  1177.  move.w d0,p6l
  1178.  swap d0
  1179.  move.w d0,p6h
  1180.  swap d0
  1181.  add.l #40,d0
  1182.  move.w d0,p7l
  1183.  swap d0
  1184.  move.w d0,p7h
  1185.  swap d0
  1186.  add.l #40,d0
  1187.  move.w d0,p8l
  1188.  swap d0
  1189.  move.w d0,p8h
  1190.  
  1191. *******************************
  1192. * TIMER SCREEN SETUP
  1193. ; move.l #TimerScr,d0
  1194. ; move.w d0,p1l
  1195. ; swap d0
  1196. ; move.w d0,p1h
  1197. ; move.w #$1201,Panelcon
  1198.  
  1199. ; move.l #borders,d0
  1200. ; move.w d0,s0l
  1201. ; swap d0
  1202. ; move.w d0,s0h
  1203. ; move.l #borders+2592,d0
  1204. ; move.w d0,s1l
  1205. ; swap d0
  1206. ; move.w d0,s1h
  1207. ; move.l #borders+2592*2,d0
  1208. ; move.w d0,s2l
  1209. ; swap d0
  1210. ; move.w d0,s2h
  1211. ; move.l #borders+2592*3,d0
  1212. ; move.w d0,s3l
  1213. ; swap d0
  1214. ; move.w d0,s3h
  1215.  
  1216.  move.l #nullspr,d0
  1217.  move.w d0,s0l
  1218.  move.w d0,s1l
  1219.  move.w d0,s2l
  1220.  move.w d0,s3l
  1221.  
  1222.  move.w d0,s4l
  1223.  move.w d0,s5l
  1224.  move.w d0,s6l
  1225.  move.w d0,s7l
  1226.  swap d0
  1227.  
  1228.  move.w d0,s0h
  1229.  move.w d0,s1h
  1230.  move.w d0,s2h
  1231.  move.w d0,s3h
  1232.  
  1233.  move.w d0,s4h
  1234.  move.w d0,s5h
  1235.  move.w d0,s6h
  1236.  move.w d0,s7h 
  1237.  
  1238.  
  1239. ; move.w #52*256+64,borders
  1240. ; move.w #212*256+0,borders+8
  1241. ; move.w #52*256+64,borders+2592
  1242. ; move.w #212*256+128,borders+8+2592
  1243. ; move.w #52*256+192,borders+2592*2
  1244. ; move.w #212*256+0,borders+8+2592*2
  1245. ; move.w #52*256+192,borders+2592*3
  1246. ; move.w #212*256+128,borders+8+2592*3
  1247.  
  1248.  move.l #FacePlace,d0
  1249.  move.w d0,f1l
  1250.  swap d0
  1251.  move.w d0,f1h
  1252.  move.l #FacePlace+32*24,d0
  1253.  move.w d0,f2l
  1254.  swap d0
  1255.  move.w d0,f2h
  1256.  move.l #FacePlace+32*24*2,d0
  1257.  move.w d0,f3l
  1258.  swap d0
  1259.  move.w d0,f3h
  1260.  move.l #FacePlace+32*24*3,d0
  1261.  move.w d0,f4l
  1262.  swap d0
  1263.  move.w d0,f4h
  1264.  move.l #FacePlace+32*24*4,d0
  1265.  move.w d0,f5l
  1266.  swap d0
  1267.  move.w d0,f5h
  1268.   
  1269.  
  1270.  move.l #bigfield,d0
  1271.  move.w d0,ocl
  1272.  swap d0
  1273.  move.w d0,och
  1274.  
  1275.  bset.b #1,$bfe001
  1276.  
  1277. ; jmp stuff
  1278. ;endstuff:
  1279.  
  1280.  move.w #$00ff,$dff09e
  1281.  
  1282. ; move.l #Blurbfield,$dff080
  1283.  
  1284.  move.w #0,d0
  1285.  
  1286.  move.l scrn,d0
  1287.  move.w d0,pl1l
  1288.  swap d0
  1289.  move.w d0,pl1h
  1290.  
  1291.  swap d0
  1292.  add.l #10240,d0
  1293.  move.w d0,pl2l
  1294.  swap d0
  1295.  move.w d0,pl2h
  1296.  
  1297.  swap d0
  1298.  add.l #10240,d0
  1299.  move.w d0,pl3l
  1300.  swap d0
  1301.  move.w d0,pl3h
  1302.  
  1303.  swap d0
  1304.  add.l #10240,d0
  1305.  move.w d0,pl4l
  1306.  swap d0
  1307.  move.w d0,pl4h
  1308.  
  1309.  swap d0
  1310.  add.l #10240,d0
  1311.  move.w d0,pl5l
  1312.  swap d0
  1313.  move.w d0,pl5h
  1314.  
  1315.  swap d0
  1316.  add.l #10240,d0
  1317.  move.w d0,pl6l
  1318.  swap d0
  1319.  move.w d0,pl6h
  1320.  
  1321.  swap d0
  1322.  add.l #10240,d0
  1323.  move.w d0,pl7l
  1324.  swap d0
  1325.  move.w d0,pl7h
  1326.  
  1327.  swap d0
  1328.  add.l #10240,d0
  1329.  move.w d0,pl8l
  1330.  swap d0
  1331.  move.w d0,pl8h
  1332.  
  1333.  
  1334. ****************************
  1335.  jsr INITPLAYER
  1336. ; bsr initobjpos
  1337. ****************************
  1338.  
  1339.  
  1340.  move.l #$dff000,a6
  1341.  
  1342.  move.l #null,$dff0a0
  1343.  move.w #100,$dff0a4
  1344.  move.w #443,$dff0a6
  1345.  move.w #63,$dff0a8
  1346.  
  1347.  move.l #null2,$dff0b0
  1348.  move.w #100,$dff0b4
  1349.  move.w #443,$dff0b6
  1350.  move.w #63,$dff0b8
  1351.  
  1352.  move.l #null4,$dff0c0
  1353.  move.w #100,$dff0c4
  1354.  move.w #443,$dff0c6
  1355.  move.w #63,$dff0c8
  1356.  
  1357.  move.l #null3,$dff0d0
  1358.  move.w #100,$dff0d4
  1359.  move.w #443,$dff0d6
  1360.  move.w #63,$dff0d8
  1361.  
  1362.  ifeq CHEESEY
  1363.  
  1364.  move.l #tab,a1
  1365.  move.w #64,d7
  1366.  move.w #0,d6
  1367. outerlop
  1368.  move.l #pretab,a0
  1369.  move.w #255,d5
  1370. scaledownlop:
  1371.  move.b (a0)+,d0
  1372.  ext.w d0
  1373.  ext.l d0
  1374.  muls d6,d0
  1375.  asr.l #6,d0
  1376.  move.b d0,(a1)+
  1377.  dbra d5,scaledownlop
  1378.  addq #1,d6
  1379.  dbra d7,outerlop
  1380.  
  1381.  endc
  1382.  
  1383.  move.l #$dff000,a6
  1384.  
  1385.  move.w #$c008,intena(a6)
  1386.  
  1387.  move.w #$f,dmacon(a6)
  1388.  move.w #$820f,dmacon(a6)
  1389.  
  1390. ; bsr protinit
  1391.  
  1392.  
  1393. ; move.w #$20,$1dc(a6)
  1394.  
  1395.  move.w #$0,$dff034
  1396.  move.w #0,Conditions
  1397.  
  1398.  cmp.b #'n',mors
  1399.  beq.s .nokeys
  1400.  move.w #%111111111111,Conditions
  1401. .nokeys:
  1402.  
  1403.  move.l #KeyMap,a5
  1404.  clr.b $45(a5)
  1405.  
  1406.  move.l LEVELMUSIC,mt_data
  1407.  clr.b UseAllChannels
  1408.  
  1409. ; cmp.b #'b',Prefsfile+3
  1410. ; bne.s .noback
  1411.  
  1412. *********************************
  1413.  
  1414.  st CHANNELDATA
  1415.  jsr mt_init
  1416.  
  1417. *********************************
  1418.  
  1419.  
  1420. ;.noback:
  1421.  
  1422.  
  1423. ;
  1424. ; clr.b CHANNELDATA
  1425. ; clr.b CHANNELDATA+8
  1426. ; clr.b CHANNELDATA+16
  1427. ; clr.b CHANNELDATA+24
  1428. ;
  1429. ; cmp.b #'b',Prefsfile+3
  1430. ; bne.s noreserve
  1431. ;
  1432.  st CHANNELDATA
  1433.  st CHANNELDATA+8
  1434. ; st CHANNELDATA+16
  1435. ; st CHANNELDATA+24
  1436. ;noreserve: 
  1437.  
  1438. ; st CHANNELDATA
  1439. ; st CHANNELDATA+8
  1440.  
  1441.  move.l SampleList+6*8,pos0LEFT
  1442.  move.l SampleList+6*8+4,Samp0endLEFT
  1443.  move.l #playerheight,PLR1s_targheight
  1444.  move.l #playerheight,PLR1s_height
  1445.  move.l #playerheight,PLR2s_targheight
  1446.  move.l #playerheight,PLR2s_height
  1447.  
  1448. ; cmp.b #'n',mors
  1449. ; beq.s nohandshake
  1450. ;
  1451. ; move.b #%11011000,$bfd200
  1452. ; move.b #%00010000,$bfd000
  1453. ;waitloop:
  1454. ; btst.b #4,$bfd000
  1455. ; bne.s waitloop
  1456. ; move.b #%11000000,$bfd200
  1457.  
  1458. ;wtmouse:
  1459. ; btst #6,$bfe001
  1460. ; bne.s wtmouse
  1461.  
  1462. ;nohandshake:
  1463.  
  1464. ; jmp end
  1465.  
  1466. ; move.l COPSCRN1,drawpt
  1467. ; move.l COPSCRN2,olddrawpt
  1468.  
  1469.  jsr CLEARKEYBOARD
  1470. ; jsr MAKEBACKROUT
  1471.  
  1472.  clr.b MASTERQUITTING
  1473.  
  1474.  cmp.b #'n',mors
  1475.  seq SLAVEQUITTING
  1476.  
  1477. ; move.w #200,PLAYERTWOHEALTH
  1478. ; move.w #200,PLAYERONEHEALTH
  1479.  
  1480. ; move.l #ANOTHERSUP,$80
  1481. ; trap #0
  1482. ; rts
  1483. ;
  1484. ;ANOTHERSUP:
  1485.  
  1486.  move.l $4.w,a6
  1487.  jsr _LVOSuperState(a6)
  1488.  move.l d0,SSTACK
  1489.  
  1490.  CACHE_FREEZE_OFF d2
  1491.  
  1492. ; charlie
  1493. ; DATA_CACHE_ON d2
  1494.  
  1495.  DataCacheOn
  1496.  
  1497.  move.l $4.w,a6
  1498.  move.l SSTACK,d0
  1499.  jsr _LVOUserState(a6)
  1500.  
  1501.  move.l #0,hitcol
  1502.  
  1503.  cmp.b #'n',mors
  1504.  bne.s NOCLTXT
  1505.  
  1506.  move.b #0,lastpressed
  1507. .wtpress
  1508.  btst #6,$bfe001
  1509.  beq.s CLOSETXT
  1510.  btst #7,$bfe001
  1511.  beq.s CLOSETXT
  1512.  tst.b lastpressed
  1513.  beq.s .wtpress
  1514.  
  1515. CLOSETXT:
  1516.  
  1517.  move.w #$8f8,d0
  1518.  move.w #7,d1
  1519.  
  1520. .fdup
  1521.  move.w d0,TXTCOLL
  1522.  move.w d0,MIXCOLL
  1523.  sub.w #$121,d0
  1524. .wtframe:
  1525.  btst #5,$dff000+intreqrl
  1526.  beq.s .wtframe
  1527.  move.w #$0020,$dff000+intreq
  1528.  dbra d1,.fdup
  1529.  
  1530.  move.w #0,TXTCOLL
  1531.  move.w #0,MIXCOLL
  1532.  
  1533. NOCLTXT:
  1534.  
  1535.  
  1536.  
  1537.     move.l    4.w,a6
  1538.     jsr    _LVOForbid(a6)
  1539. ;    jsr    _LVODisable(a6)
  1540.  
  1541.  
  1542. ;    move.w    #%0111111111111111,intena+$dff000
  1543. ;    move.w    #%1000000011111111,intena+$dff000
  1544.  
  1545.  
  1546. ;charlie 
  1547.  move.l #PALETTEBIT,$dff084
  1548.  move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1549.  
  1550.  
  1551.  clr.b PLR1_Ducked
  1552.  clr.b PLR2_Ducked
  1553.  clr.b p1_ducked
  1554.  clr.b p2_ducked
  1555.  
  1556. ********************************************
  1557.  
  1558. ;    jmp docredits
  1559.  
  1560. ********************************************
  1561.  
  1562.  
  1563.  st doanything
  1564.  st dosounds
  1565.  
  1566.  jsr CLRNASTYMEM
  1567.  
  1568.  move.l #COMPACTMAP,a0
  1569.  move.l a0,LASTZONE
  1570.  move.w #255,d0
  1571. .clrmap
  1572.  move.l #0,(a0)+
  1573.  dbra d0,.clrmap
  1574.  
  1575.  move.l #COMPACTMAP,a0
  1576.  move.l #BIGMAP,a1
  1577.  
  1578.  bra NOALLWALLS
  1579.  
  1580.  move.l ZoneGraphAdds,a2
  1581. DOALLWALLS:
  1582.  move.l (a2),d0
  1583.  beq.s nomorezones
  1584.  move.l d0,a3
  1585.  
  1586.  addq #8,a2
  1587.  
  1588.  add.l LEVELGRAPHICS,a3
  1589.  addq #2,a3
  1590.  move.l a1,a4
  1591.  
  1592. ; DOLOWERROOM
  1593.  
  1594. innerwalls:
  1595.  move.b (a3),d1
  1596.  move.b 1(a3),d0
  1597.  bne doneinner
  1598.  
  1599.  tst.b d1
  1600.  blt noid
  1601.  
  1602.  move.b d1,d3
  1603.  and.w #15,d1
  1604.  
  1605.  moveq #0,d0
  1606.  move.w d1,d2
  1607.  add.w d1,d1
  1608.  add.w d2,d1
  1609.  addq #1,d1
  1610.  bset d1,d0
  1611.  btst #4,d3
  1612.  beq.s .nodoor
  1613.  addq #1,d1
  1614.  bset d1,d0
  1615. .nodoor
  1616.  
  1617.  or.l d0,(a0)
  1618.  
  1619.  move.w 2(a3),(a4)
  1620.  move.w 4(a3),2(a4)
  1621.  
  1622. noid:
  1623.  
  1624.  add.w #30,a3
  1625.  addq #4,a4
  1626.  
  1627.  bra innerwalls
  1628.  
  1629. doneinner:
  1630.  
  1631.  add.w #40,a1
  1632.  addq #4,a0
  1633.  
  1634.  bra DOALLWALLS
  1635. nomorezones:
  1636.  
  1637. NOALLWALLS
  1638.  
  1639.  move.w #96,MIDDLEX
  1640.  move.w #192,RIGHTX
  1641.  move.w #160,BOTTOMY
  1642.  move.w #80,TOTHEMIDDLE
  1643.  clr.b FULLSCR
  1644.  move.l scrn,a0
  1645.  jsr WIPEDISPLAY
  1646.  move.l scrn2,a0
  1647.  jsr WIPEDISPLAY
  1648.  
  1649.  st PLAYERONEGUNS+1
  1650.  st PLAYERTWOGUNS+1
  1651.  st PLAYERTHREEGUNS+1
  1652.  
  1653.  move.w #100,timetodamage
  1654.  
  1655.  move.w #299,d0
  1656.  move.l #DAMAGED,a0
  1657. CLRDAM:
  1658.  move.w #0,(a0)+
  1659.  dbra d0,CLRDAM
  1660.  
  1661.  moveq #0,d0
  1662.  move.w d0,STOPOFFSET
  1663.  neg.w d0
  1664.  add.w TOTHEMIDDLE,d0
  1665.  move.w d0,SMIDDLEY
  1666.  muls #320,d0
  1667.  move.l d0,SBIGMIDDLEY
  1668.  
  1669.  move.w #0,PLR1_AIMSPD
  1670.  move.w #0,PLR2_AIMSPD
  1671.  move.w #0,PLR3_AIMSPD
  1672.  
  1673.  move.l scrn,SCRNSHOWPT
  1674.  
  1675.  move.l scrn2,SCRNDRAWPT
  1676.  
  1677.  
  1678.  
  1679.  move.l #MESSAGEBUFFER,a0
  1680.  move.w #19,d0
  1681. clrmessbuff:
  1682.  move.l #0,(a0)+
  1683.  dbra d0,clrmessbuff
  1684.  
  1685.  move.l #nullmessage,d0
  1686.  jsr SENDMESSAGE
  1687.  
  1688.  clr.b PLR2_fire
  1689.  clr.b p2_fire
  1690.  clr.b PLR2_SPCTAP
  1691.  clr.b p2_spctap
  1692.  
  1693.  clr.b PLR1_dead
  1694.  clr.b PLR2_dead
  1695.  clr.b PLR3_dead
  1696.  
  1697.  move.l PLR1_Obj,a0
  1698.  move.l PLR2_Obj,a1
  1699.  move.l PLR3_Obj,a2
  1700.  move.w #0,ImpactX(a0)
  1701.  move.w #0,ImpactY(a0)
  1702.  move.w #0,ImpactZ(a0)
  1703.  move.w #0,ImpactX(a1)
  1704.  move.w #0,ImpactY(a1)
  1705.  move.w #0,ImpactZ(a1)
  1706.  move.w #0,ImpactX(a2)
  1707.  move.w #0,ImpactY(a2)
  1708.  move.w #0,ImpactZ(a2)
  1709.  
  1710.  move.l #0,PLR1s_xspdval
  1711.  move.l #0,PLR1s_zspdval
  1712.  move.l #0,PLR1s_yvel
  1713.  move.l #0,PLR2s_xspdval
  1714.  move.l #0,PLR2s_zspdval
  1715.  move.l #0,PLR2s_yvel
  1716.  move.l #0,PLR3s_xspdval
  1717.  move.l #0,PLR3s_zspdval
  1718.  move.l #0,PLR3s_yvel
  1719.  move.l #0,PLR1_xspdval
  1720.  move.l #0,PLR1_zspdval
  1721.  move.l #0,PLR1_yvel
  1722.  move.l #0,PLR2_xspdval
  1723.  move.l #0,PLR2_zspdval
  1724.  move.l #0,PLR2_yvel
  1725.  move.l #0,PLR3_xspdval
  1726.  move.l #0,PLR3_zspdval
  1727.  move.l #0,PLR3_yvel
  1728.  
  1729.  
  1730. lop:
  1731.  move.w #%110000000000,$dff034
  1732.  
  1733.  
  1734. **********************************
  1735.  cmp.b #'1',WHICHAMI
  1736.  beq .notmess
  1737.  tst.b PLR1_dead
  1738.  bne .notmess
  1739.  
  1740.  tst.w PLAYERONEHEALTH
  1741.  bgt .notmess
  1742.  
  1743.  st PLR1_dead
  1744.  
  1745.  move.w #0,d0
  1746.  add.l #IVEWONTEXT,d0
  1747.  jsr SENDMESSAGE
  1748.  
  1749.  move.l PLR1_Obj,a0
  1750.  
  1751.  move.l LINKFILE,a6
  1752.  add.l #PLR1ALIEN,a6
  1753.  move.w (a6),d7
  1754.  move.w d7,d1
  1755.  move.l LINKFILE,a6
  1756.  add.l #AlienStats,a6
  1757.  muls #AlienStatLen,d1
  1758.  add.l d1,a6
  1759.  
  1760.  move.b A_TypeOfSplat+1(a6),d0
  1761.  move.b d0,TypeOfSplat
  1762.  
  1763.  move.l PLR1_Roompt,a1
  1764.  move.w (a1),12(a0)
  1765.  move.w p1_xoff,newx
  1766.  move.w p1_zoff,newz
  1767.  move.w #7,d2
  1768.  jsr ExplodeIntoBits
  1769.  move.w #-1,12(a0)
  1770.  
  1771. .notmess:
  1772.  
  1773. **********************************
  1774.  cmp.b #'2',WHICHAMI
  1775.  beq .notmess2
  1776.  tst.b PLR2_dead
  1777.  bne .notmess2
  1778.  
  1779.  tst.w PLAYERTWOHEALTH
  1780.  bgt .notmess2
  1781.  
  1782.  st PLR2_dead
  1783.  
  1784.  move.w #160,d0
  1785.  add.l #IVEWONTEXT,d0
  1786.  jsr SENDMESSAGE
  1787.  
  1788.  move.l PLR2_Obj,a0
  1789.  
  1790.  move.l LINKFILE,a6
  1791.  add.l #PLR2ALIEN,a6
  1792.  move.w (a6),d7
  1793.  move.w d7,d1
  1794.  move.l LINKFILE,a6
  1795.  add.l #AlienStats,a6
  1796.  muls #AlienStatLen,d1
  1797.  add.l d1,a6
  1798.  
  1799.  move.b A_TypeOfSplat+1(a6),d0
  1800.  move.b d0,TypeOfSplat
  1801.  
  1802.  move.l PLR2_Roompt,a1
  1803.  move.w (a1),12(a0)
  1804.  move.w p2_xoff,newx
  1805.  move.w p2_zoff,newz
  1806.  move.w #7,d2
  1807.  jsr ExplodeIntoBits
  1808.  move.w #-1,12(a0)
  1809.  
  1810. .notmess2:
  1811. **********************************
  1812.  cmp.b #'3',WHICHAMI
  1813.  beq .notmess3
  1814.  tst.b PLR3_dead
  1815.  bne .notmess3
  1816.  
  1817.  tst.w PLAYERTHREEHEALTH
  1818.  bgt .notmess3
  1819.  
  1820.  st PLR3_dead
  1821.  
  1822.  move.w #320,d0
  1823.  add.l #IVEWONTEXT,d0
  1824.  jsr SENDMESSAGE
  1825.  
  1826.  move.l PLR3_Obj,a0
  1827.  
  1828.  move.l LINKFILE,a6
  1829.  add.l #PLR1ALIEN,a6
  1830.  move.w (a6),d7
  1831.  move.w d7,d1
  1832.  move.l LINKFILE,a6
  1833.  add.l #AlienStats,a6
  1834.  muls #AlienStatLen,d1
  1835.  add.l d1,a6
  1836.  
  1837.  move.b A_TypeOfSplat+1(a6),d0
  1838.  move.b d0,TypeOfSplat
  1839.  
  1840.  move.l PLR3_Roompt,a1
  1841.  move.w (a1),12(a0)
  1842.  move.w p3_xoff,newx
  1843.  move.w p3_zoff,newz
  1844.  move.w #7,d2
  1845.  jsr ExplodeIntoBits
  1846.  move.w #-1,12(a0)
  1847.  
  1848. .notmess3:
  1849. ***********************************
  1850.  
  1851.  
  1852.  move.w #%110000000000,$dff034
  1853.  
  1854. ; move.w COUNTER,d0
  1855. ; ext.l d0
  1856. ; divs #10,d0
  1857. ; swap d0
  1858. ; add.b #'0',d0
  1859. ; move.b d0,COUNTSPACE+2
  1860. ; swap d0
  1861. ; ext.l d0
  1862. ; divs #10,d0
  1863. ; swap d0
  1864. ; add.b #'0',d0
  1865. ; move.b d0,COUNTSPACE+1
  1866. ; swap d0
  1867. ; add.b #'0',d0
  1868. ; move.b d0,COUNTSPACE
  1869. ;
  1870. ; move.w COUNTER2,d0
  1871. ; ext.l d0
  1872. ; divs #10,d0
  1873. ; swap d0
  1874. ; add.b #'0',d0
  1875. ; move.b d0,COUNTSPACE+5
  1876. ; swap d0
  1877. ; ext.l d0
  1878. ; divs #10,d0
  1879. ; swap d0
  1880. ; add.b #'0',d0
  1881. ; move.b d0,COUNTSPACE+4
  1882. ; swap d0
  1883. ; add.b #'0',d0
  1884. ; move.b d0,COUNTSPACE+3
  1885.  
  1886. ;
  1887. ; move.l #COUNTSPACE,d0
  1888. ; jsr SENDMESSAGE
  1889. ;
  1890. ; move.w #0,COUNTER
  1891. ; move.w #0,COUNTER2
  1892.  
  1893.  move.b MAPON,REALMAPON
  1894.  
  1895.  move.b FULLSCRTEMP,d0
  1896.  move.b FULLSCR,d1
  1897.  eor.b d1,d0
  1898.  beq .notswapscr2
  1899.  
  1900.  move.b FULLSCRTEMP,FULLSCR
  1901.  beq.s .notswapscr3
  1902.  
  1903.  cmp.w #100,WIDESCRN
  1904.  blt.s .okwidee
  1905.  move.w #100,WIDESCRN
  1906. .okwidee:
  1907.  
  1908.  move.w #144,MIDDLEX
  1909.  move.w #288,RIGHTX
  1910.  move.w #232,BOTTOMY
  1911.  move.w #120,TOTHEMIDDLE
  1912.  move.l SCRNSHOWPT,a0
  1913.  jsr WIPEDISPLAY
  1914.  move.l SCRNDRAWPT,a0
  1915.  jsr WIPEDISPLAY
  1916.  
  1917.  bra.s .notswapscr2
  1918.  
  1919. .notswapscr3:
  1920.  cmp.w #60,WIDESCRN
  1921.  blt.s .okwide
  1922.  move.w #60,WIDESCRN
  1923. .okwide:
  1924.  
  1925.  
  1926.  move.w #96,MIDDLEX
  1927.  move.w #192,RIGHTX
  1928.  move.w #160,BOTTOMY
  1929.  move.w #80,TOTHEMIDDLE
  1930.  move.l SCRNSHOWPT,a0
  1931.  jsr WIPEDISPLAY
  1932.  move.l SCRNDRAWPT,a0
  1933.  jsr WIPEDISPLAY
  1934. .notswapscr2:
  1935.  
  1936.  
  1937.  btst #6,$bfe001
  1938. ;charlie bne.b .nocop
  1939.  
  1940. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1941.  
  1942. .nocop
  1943.  
  1944.  move.l #KeyMap,a5
  1945.  
  1946.  cmp.b #'n',mors
  1947.  bne .nopause
  1948.  tst.b $19(a5)
  1949.  beq.s .nopause
  1950.  clr.b doanything
  1951.  
  1952. .waitrel:
  1953.  
  1954.  tst.b PLR1JOY
  1955.  beq.s .NOJOY
  1956.  jsr _ReadJoy1
  1957. .NOJOY
  1958.  
  1959.  tst.b $19(a5)
  1960.  bne.s .waitrel
  1961.  
  1962.  bsr PAUSEOPTS
  1963.  
  1964.  st doanything
  1965. .nopause: 
  1966.  
  1967.  move.l hitcol,d0
  1968.  move.l d0,d1
  1969.  
  1970. ********************************************
  1971. * Remove after colour testing 
  1972. ; moveq #0,d1
  1973. ********************************************
  1974.  
  1975.  add.l #PALETTEBIT,d1
  1976.  tst.l d0
  1977.  beq.s nofadedownhc
  1978.  sub.l #2116,d0
  1979.  move.l d0,hitcol
  1980. nofadedownhc:
  1981.  
  1982.  move.l d1,a0
  1983.  move.l #PALETTESPACE,a1
  1984.  move.l #(2116/4)-2,d0
  1985. putinpal:
  1986.  move.l (a0)+,(a1)+
  1987.  dbra d0,putinpal
  1988.  
  1989.  st READCONTROLS
  1990.  move.l #$dff000,a6
  1991.  
  1992.  
  1993.  cmp.b #'n',mors
  1994.  beq .nopause
  1995.  
  1996.  move.b PLR1_PAUSE,d0
  1997.  or.b PLR2_PAUSE,d0
  1998.  or.b PLR3_PAUSE,d0
  1999.  beq .nopause
  2000.  clr.b doanything
  2001.  
  2002.  move.l #KeyMap,a5
  2003. .waitrel:
  2004.  
  2005.  cmp.b #'s',mors
  2006.  beq.s .RE2
  2007.  tst.b PLR1JOY
  2008.  beq.s .NOJOY
  2009.  jsr _ReadJoy1
  2010.  bra .RE1
  2011. .RE2:
  2012.  tst.b PLR2JOY
  2013.  beq.s .NOJOY
  2014.  jsr _ReadJoy2
  2015. .RE1
  2016. .NOJOY:
  2017.  tst.b $19(a5)
  2018.  bne.s .waitrel
  2019.  
  2020.  bsr PAUSEOPTS
  2021.  
  2022.  cmp.b #'2',WHICHAMI
  2023.  blt.s .p1unp
  2024.  beq.s .p2unp
  2025.  bra.s .p3unp
  2026.  
  2027. .p1unp:
  2028.  jsr SENDFIRST
  2029.  jsr SENDFIRST
  2030.  clr.b PLR1_PAUSE
  2031.  clr.b PLR2_PAUSE
  2032.  clr.b PLR3_PAUSE
  2033.  st doanything
  2034.  bra.s .nopause
  2035.  
  2036. .p2unp:
  2037.  jsr RECFIRST
  2038.  jsr SENDPAR
  2039.  jsr RECFIRST
  2040.  clr.b PLR1_PAUSE
  2041.  clr.b PLR2_PAUSE
  2042.  clr.b PLR3_PAUSE
  2043.  st doanything
  2044.  bra.s .nopause
  2045.  
  2046. .p3unp:
  2047.  jsr RECPAR
  2048.  clr.b PLR1_PAUSE
  2049.  clr.b PLR2_PAUSE
  2050.  clr.b PLR3_PAUSE
  2051.  st doanything 
  2052.  
  2053. ; cmp.b #'m',mors
  2054. ; bne.s .slavelast
  2055. ; Jsr SENDFIRST
  2056. ; bra .masfirst
  2057. ;.slavelast
  2058. ; Jsr RECFIRST
  2059. ;.masfirst:
  2060. ; clr.b SLAVEPAUSE
  2061. ; clr.b MASTERPAUSE
  2062. ; st doanything
  2063.  
  2064. .nopause: 
  2065.  
  2066.  
  2067.  move.l drawpt,d0
  2068.  move.l olddrawpt,drawpt
  2069.  move.l d0,olddrawpt
  2070.  
  2071.  move.l SCRNDRAWPT,d0
  2072.  move.l SCRNSHOWPT,SCRNDRAWPT
  2073.  move.l d0,SCRNSHOWPT
  2074.  
  2075. ; move.l d0,$dff084    
  2076.  move.l drawpt,a3
  2077. ; move.l COPSCRNBUFF,a3
  2078.  adda.w #10,a3
  2079.  move.l a3,frompt
  2080.  add.l #104*4*40,a3
  2081.  move.l a3,midpt
  2082.  
  2083.  cmp.b #'1',WHICHAMI
  2084.  bne.s nowaitslave
  2085.  
  2086. waitfortop:
  2087.  
  2088.  btst.b #0,intreqrl(a6)
  2089.  beq.b waitfortop
  2090.  
  2091.  move.w #$1,intreq(a6)
  2092. ; move.l #PLR1_GunData,GunData
  2093.  move.b PLR1_GunSelected,GunSelected
  2094.  bra waitmaster
  2095.  
  2096. nowaitslave:
  2097.  cmp.b #'2',WHICHAMI
  2098.  bne.s .noplr2
  2099.  
  2100.  move.b PLR2_GunSelected,GunSelected
  2101.  bra waitmaster
  2102.  
  2103. .noplr2:
  2104.  
  2105. ; move.l #PLR2_GunData,GunData
  2106.  move.b PLR3_GunSelected,GunSelected
  2107. waitmaster:
  2108.  
  2109.  move.l d0,d1
  2110.  move.l d1,d0
  2111.  move.w d0,pl1l
  2112.  swap d0
  2113.  move.w d0,pl1h
  2114.  
  2115.  add.l #10240,d1
  2116.  move.l d1,d0
  2117.  move.w d0,pl2l
  2118.  swap d0
  2119.  move.w d0,pl2h
  2120.  
  2121.  add.l #10240,d1
  2122.  move.l d1,d0
  2123.  move.w d0,pl3l
  2124.  swap d0
  2125.  move.w d0,pl3h
  2126.  
  2127.  add.l #10240,d1
  2128.  move.l d1,d0
  2129.  move.w d0,pl4l
  2130.  swap d0
  2131.  move.w d0,pl4h
  2132.  
  2133.  add.l #10240,d1
  2134.  move.l d1,d0
  2135.  move.w d0,pl5l
  2136.  swap d0
  2137.  move.w d0,pl5h
  2138.  
  2139.  add.l #10240,d1
  2140.  move.l d1,d0
  2141.  move.w d0,pl6l
  2142.  swap d0
  2143.  move.w d0,pl6h
  2144.  
  2145.  add.l #10240,d1
  2146.  move.l d1,d0
  2147.  move.w d0,pl7l
  2148.  swap d0
  2149.  move.w d0,pl7h
  2150.  
  2151.  add.l #10240,d1
  2152.  move.l d1,d0
  2153.  move.w d0,pl8l
  2154.  swap d0
  2155.  move.w d0,pl8h 
  2156.  
  2157.  move.l #SMIDDLEY,a0
  2158.  movem.l (a0)+,d0/d1
  2159.  move.l d0,MIDDLEY
  2160.  move.l d1,MIDDLEY+4
  2161.  
  2162.  move.l waterpt,a0
  2163.  move.l (a0)+,watertouse
  2164.  cmp.l #endwaterlist,a0
  2165.  blt.s okwat
  2166.  move.l #waterlist,a0
  2167. okwat:
  2168.  move.l a0,waterpt
  2169.  
  2170.  add.w #640,wtan
  2171.  and.w #8191,wtan
  2172.  add.l #1,wateroff
  2173.  and.l #$3fff3fff,wateroff
  2174.  
  2175.  move.l PLR1_xoff,OLDX1
  2176.  move.l PLR1_zoff,OLDZ1
  2177.  move.l PLR2_xoff,OLDX2
  2178.  move.l PLR2_zoff,OLDZ2
  2179.  move.l PLR3_xoff,OLDX3
  2180.  move.l PLR3_zoff,OLDZ3
  2181.  
  2182.  move.l #$dff000,a6
  2183.  
  2184. ; cmp.b #'s',mors
  2185. ; beq ASlaveShouldWaitOnHisMaster
  2186. ;
  2187. ; cmp.b #'n',mors
  2188. ; bne NotOnePlayer
  2189. ;
  2190. ; movem.l d0-d7/a0-a6,-(a7)
  2191. ;
  2192. ; moveq #0,d0
  2193. ; move.b GunSelected,d0
  2194. ; move.l LINKFILE,a6
  2195. ; add.l #GunBulletTypes,a6
  2196. ; move.w (a6,d0.w*8),d0
  2197. ; 
  2198. ; move.l #PLAYERONEAMMO,a6
  2199. ; move.w (a6,d0.w*2),d0
  2200. ; move.w d0,Ammo
  2201. ; movem.l (a7)+,d0-d7/a0-a6
  2202. ; 
  2203. ; move.w PLAYERONEHEALTH,Energy
  2204. ; 
  2205. ; move.w FramesToDraw,TempFrames
  2206. ; cmp.w #15,TempFrames
  2207. ; blt.s .okframe
  2208. ; move.w #15,TempFrames
  2209. ;.okframe:
  2210. ; move.w #0,FramesToDraw
  2211. ;
  2212. ;*********************************************
  2213. ;*********** TAKE THIS OUT *******************
  2214. ;*********************************************
  2215. ;
  2216. ; move.l CHEATPTR,a4
  2217. ; add.l #200000,a4
  2218. ; moveq #0,d0
  2219. ; move.b (a4),d0
  2220. ;
  2221. ; move.l #KeyMap,a5
  2222. ; tst.b (a5,d0.w)
  2223. ; beq.s .nocheat
  2224. ; 
  2225. ; addq #1,a4
  2226. ; cmp.l #ENDCHEAT,a4
  2227. ; blt.s .nocheat
  2228. ; cmp.w #0,CHEATNUM
  2229. ; beq.s .nocheat
  2230. ; sub.w #1,CHEATNUM
  2231. ; move.l #CHEATFRAME,a4
  2232. ; move.w #127,PLR1_energy
  2233. ; jsr EnergyBar
  2234. ;.nocheat
  2235. ;
  2236. ; sub.l #200000,a4
  2237. ; move.l a4,CHEATPTR
  2238. ;
  2239. ;**********************************************
  2240. ;**********************************************
  2241. ;**********************************************
  2242.  
  2243. ; move.l PLR1s_xoff,p1_xoff
  2244. ; move.l PLR1s_zoff,p1_zoff
  2245. ; move.l PLR1s_yoff,p1_yoff
  2246. ; move.l PLR1s_height,p1_height
  2247. ; move.w PLR1s_angpos,p1_angpos
  2248. ; move.w PLR1_bobble,p1_bobble
  2249. ; move.b PLR1_clicked,p1_clicked
  2250. ; move.b PLR1_fire,p1_fire
  2251. ; clr.b PLR1_clicked
  2252. ; move.b PLR1_SPCTAP,p1_spctap
  2253. ; clr.b PLR1_SPCTAP
  2254. ; move.b PLR1_Ducked,p1_ducked
  2255. ; move.b PLR1_GunSelected,p1_gunselected
  2256. ;
  2257. ; bsr PLR1_Control
  2258. ;
  2259. ; move.l PLR1_Roompt,a0
  2260. ; move.l ToZoneRoof(a0),SplitHeight
  2261. ; move.w p1_xoff,THISPLRxoff
  2262. ; move.w p1_zoff,THISPLRzoff
  2263. ; 
  2264. ; 
  2265. ; move.l #$60000,p2_yoff
  2266. ; move.l PLR2_Obj,a0
  2267. ; move.w #-1,GraphicRoom(a0)
  2268. ; move.w #-1,12(a0)
  2269. ; move.b #0,17(a0)
  2270. ; move.l #BollocksRoom,PLR2_Roompt
  2271. ; 
  2272. ; bra donetalking
  2273. ; 
  2274.  
  2275.  
  2276.  cmp.b #'2',WHICHAMI
  2277.  blt PLR1stuff
  2278.  beq PLR2stuff
  2279.  bra PLR2stuff
  2280.  
  2281. PLR1stuff
  2282.  move.l #KeyMap,a5
  2283.  tst.b $19(a5)
  2284.  sne PLR1_PAUSE
  2285.  movem.l d0-d7/a0-a6,-(a7)
  2286.  moveq #0,d0
  2287.  move.b GunSelected,d0
  2288.  move.l LINKFILE,a6
  2289.  add.l #GunBulletTypes,a6
  2290.  move.w (a6,d0.w*8),d0
  2291.  
  2292.  move.l #PLAYERONEAMMO,a6
  2293.  move.w (a6,d0.w*2),d0
  2294.  move.w d0,Ammo
  2295.  movem.l (a7)+,d0-d7/a0-a6
  2296.  
  2297.  jsr SENDFIRST
  2298.  move.w FramesToDraw,TempFrames
  2299.  cmp.w #15,TempFrames
  2300.  blt.s .okframe
  2301.  move.w #15,TempFrames
  2302. .okframe:
  2303.  move.w #0,FramesToDraw
  2304.  
  2305.  move.l PLR1s_xoff,p1_xoff
  2306.  move.l PLR1s_zoff,p1_zoff
  2307.  move.l PLR1s_yoff,p1_yoff
  2308.  move.l PLR1s_height,p1_height
  2309.  move.w PLR1s_angpos,p1_angpos
  2310.  move.w PLR1_bobble,p1_bobble
  2311.  move.b PLR1_clicked,p1_clicked
  2312.  clr.b PLR1_clicked
  2313.  move.b PLR1_fire,p1_fire
  2314.  move.b PLR1_SPCTAP,p1_spctap
  2315.  clr.b PLR1_SPCTAP
  2316.  move.b PLR1_Ducked,p1_ducked
  2317.  move.b PLR1_GunSelected,p1_gunselected
  2318.  
  2319.  move.l PLR1_AIMSPD,d0
  2320.  jsr SENDFIRST
  2321.  move.l d0,PLR2_AIMSPD
  2322.  
  2323.  move.l p1_xoff,d0
  2324.  jsr SENDFIRST
  2325.  move.l d0,p2_xoff
  2326.  
  2327.  move.l p1_zoff,d0
  2328.  jsr SENDFIRST
  2329.  move.l d0,p2_zoff 
  2330.  
  2331.  move.l p1_yoff,d0
  2332.  jsr SENDFIRST
  2333.  move.l d0,p2_yoff
  2334.   
  2335.  move.l p1_height,d0
  2336.  jsr SENDFIRST
  2337.  move.l d0,p2_height
  2338.  
  2339.  move.w p1_angpos,d0
  2340.  swap d0
  2341.  move.w p1_bobble,d0
  2342.  jsr SENDFIRST
  2343.  move.w d0,p2_bobble
  2344.  swap d0
  2345.  move.w d0,p2_angpos
  2346.  
  2347.  
  2348.  move.w TempFrames,d0
  2349.  swap d0
  2350.  move.b p1_spctap,d0
  2351.  lsl.w #8,d0
  2352.  move.b p1_clicked,d0
  2353.  jsr SENDFIRST
  2354.  move.b d0,p2_clicked
  2355.  lsr.w #8,d0
  2356.  move.b d0,p2_spctap
  2357.  
  2358.  move.w Rand1,d0
  2359.  swap d0
  2360.  move.b p1_ducked,d0
  2361.  or.b PLR1_Squished,d0
  2362.  lsl.w #8,d0
  2363.  move.b p1_gunselected,d0
  2364.  jsr SENDFIRST
  2365.  move.b d0,p2_gunselected
  2366.  lsr.w #8,d0
  2367.  move.b d0,p2_ducked
  2368.  
  2369.  move.b p1_fire,d0
  2370.  lsl.w #8,d0
  2371.  move.b PLR1QUITTING,d0
  2372.  or.b d0,PLR2QUITTING
  2373.  or.b d0,PLR3QUITTING
  2374.  swap d0
  2375.  move.b PLR1_PAUSE,d0
  2376.  or.b d0,PLR2_PAUSE
  2377.  or.b d0,PLR3_PAUSE
  2378.  jsr SENDFIRST
  2379.  or.b d0,PLR1_PAUSE
  2380.  or.b d0,PLR2_PAUSE
  2381.  or.b d0,PLR3_PAUSE
  2382.  swap d0
  2383.  or.b d0,PLR1QUITTING
  2384.  or.b d0,PLR2QUITTING
  2385.  or.b d0,PLR3QUITTING
  2386.  lsr.w #8,d0
  2387.  move.b d0,p2_fire
  2388.  
  2389.  move.w PLAYERONEHEALTH,d0
  2390.  jsr SENDFIRST
  2391.  move.w d0,PLAYERTWOHEALTH
  2392.  
  2393.  **********************************
  2394.  
  2395. ; move.l PLR1_AIMSPD,d0
  2396.  jsr SENDFIRST
  2397.  move.l d0,PLR3_AIMSPD
  2398.  
  2399. ; move.l p1_xoff,d0
  2400.  jsr SENDFIRST
  2401.  move.l d0,p3_xoff
  2402.  
  2403. ; move.l p1_zoff,d0
  2404.  jsr SENDFIRST
  2405.  move.l d0,p3_zoff 
  2406.  
  2407. ; move.l p1_yoff,d0
  2408.  jsr SENDFIRST
  2409.  move.l d0,p3_yoff
  2410.   
  2411. ; move.l p1_height,d0
  2412.  jsr SENDFIRST
  2413.  move.l d0,p3_height
  2414.  
  2415. ; move.w p1_angpos,d0
  2416. ; swap d0
  2417. ; move.w p1_bobble,d0
  2418.  jsr SENDFIRST
  2419.  move.w d0,p3_bobble
  2420.  swap d0
  2421.  move.w d0,p3_angpos
  2422.  
  2423.  
  2424. ; move.w TempFrames,d0
  2425. ; swap d0
  2426. ; move.b p1_spctap,d0
  2427. ; lsl.w #8,d0
  2428. ; move.b p1_clicked,d0
  2429.  jsr SENDFIRST
  2430.  move.b d0,p3_clicked
  2431.  lsr.w #8,d0
  2432.  move.b d0,p3_spctap
  2433.  
  2434. ; move.w Rand1,d0
  2435. ; swap d0
  2436. ; move.b p1_ducked,d0
  2437. ; or.b PLR1_Squished,d0
  2438. ; lsl.w #8,d0
  2439. ; move.b p1_gunselected,d0
  2440.  jsr SENDFIRST
  2441.  move.b d0,p3_gunselected
  2442.  lsr.w #8,d0
  2443.  move.b d0,p3_ducked
  2444.  
  2445.  move.b p1_fire,d0
  2446.  lsl.w #8,d0
  2447.  move.b PLR1QUITTING,d0
  2448.  or.b d0,PLR2QUITTING
  2449.  or.b d0,PLR3QUITTING
  2450.  swap d0
  2451.  move.b PLR1_PAUSE,d0
  2452.  or.b d0,PLR2_PAUSE
  2453.  or.b d0,PLR3_PAUSE
  2454.  jsr SENDFIRST
  2455.  or.b d0,PLR1_PAUSE
  2456.  or.b d0,PLR2_PAUSE
  2457.  or.b d0,PLR3_PAUSE
  2458.  swap d0
  2459.  or.b d0,PLR1QUITTING
  2460.  or.b d0,PLR2QUITTING
  2461.  or.b d0,PLR3QUITTING
  2462.  lsr.w #8,d0
  2463.  move.b d0,p3_fire
  2464.  
  2465. ; move.w PLAYERONEHEALTH,d0
  2466.  jsr SENDFIRST
  2467.  move.w d0,PLAYERTHREEHEALTH
  2468.  
  2469.  bsr PLR1_Control
  2470.  bsr PLR2_Control
  2471.  bsr PLR3_Control
  2472.  move.l PLR1_Roompt,a0
  2473.  move.l ToZoneRoof(a0),SplitHeight
  2474.  move.w p1_xoff,THISPLRxoff
  2475.  move.w p1_zoff,THISPLRzoff
  2476.  
  2477.  bra donetalking
  2478.  
  2479. ;
  2480. ;
  2481. ;NotOnePlayer:
  2482. ; move.l #KeyMap,a5
  2483. ; tst.b $19(a5)
  2484. ; sne MASTERPAUSE
  2485. ;
  2486. ;*********************************
  2487. ; move.w PLAYERONEHEALTH,Energy
  2488. ; change this back
  2489. ;*********************************
  2490. ; movem.l d0-d7/a0-a6,-(a7)
  2491. ;
  2492. ; moveq #0,d0
  2493. ; move.b GunSelected,d0
  2494. ; move.l LINKFILE,a6
  2495. ; add.l #GunBulletTypes,a6
  2496. ; move.w (a6,d0.w*8),d0
  2497. ; 
  2498. ; move.l #PLAYERONEAMMO,a6
  2499. ; move.w (a6,d0.w*2),d0
  2500. ; move.w d0,Ammo
  2501. ; movem.l (a7)+,d0-d7/a0-a6
  2502. ;
  2503. ; jsr SENDFIRST
  2504. ;
  2505. ; move.w FramesToDraw,TempFrames
  2506. ; cmp.w #15,TempFrames
  2507. ; blt.s .okframe
  2508. ; move.w #15,TempFrames
  2509. ;.okframe:
  2510. ; move.w #0,FramesToDraw
  2511. ; 
  2512. ; move.l PLR1s_xoff,p1_xoff
  2513. ; move.l PLR1s_zoff,p1_zoff
  2514. ; move.l PLR1s_yoff,p1_yoff
  2515. ; move.l PLR1s_height,p1_height
  2516. ; move.w PLR1s_angpos,p1_angpos
  2517. ; move.w PLR1_bobble,p1_bobble
  2518. ; move.b PLR1_clicked,p1_clicked
  2519. ; clr.b PLR1_clicked
  2520. ; move.b PLR1_fire,p1_fire
  2521. ; move.b PLR1_SPCTAP,p1_spctap
  2522. ; clr.b PLR1_SPCTAP
  2523. ; move.b PLR1_Ducked,p1_ducked
  2524. ; move.b PLR1_GunSelected,p1_gunselected
  2525. ; 
  2526. ; move.l PLR1_AIMSPD,d0
  2527. ; jsr SENDFIRST
  2528. ; move.l d0,PLR2_AIMSPD
  2529. ; 
  2530. ; move.l p1_xoff,d0
  2531. ; jsr SENDFIRST
  2532. ; move.l d0,p2_xoff
  2533. ; 
  2534. ; move.l p1_zoff,d0
  2535. ; jsr SENDFIRST
  2536. ; move.l d0,p2_zoff 
  2537. ; 
  2538. ; move.l p1_yoff,d0
  2539. ; jsr SENDFIRST
  2540. ; move.l d0,p2_yoff
  2541. ;  
  2542. ; move.l p1_height,d0
  2543. ; jsr SENDFIRST
  2544. ; move.l d0,p2_height
  2545. ; 
  2546. ; move.w p1_angpos,d0
  2547. ; swap d0
  2548. ; move.w p1_bobble,d0
  2549. ; jsr SENDFIRST
  2550. ; move.w d0,p2_bobble
  2551. ; swap d0
  2552. ; move.w d0,p2_angpos
  2553. ; 
  2554. ; 
  2555. ; move.w TempFrames,d0
  2556. ; swap d0
  2557. ; move.b p1_spctap,d0
  2558. ; lsl.w #8,d0
  2559. ; move.b p1_clicked,d0
  2560. ; jsr SENDFIRST
  2561. ; move.b d0,p2_clicked
  2562. ; lsr.w #8,d0
  2563. ; move.b d0,p2_spctap
  2564. ; 
  2565. ; move.w Rand1,d0
  2566. ; swap d0
  2567. ; move.b p1_ducked,d0
  2568. ; or.b PLR1_Squished,d0
  2569. ; lsl.w #8,d0
  2570. ; move.b p1_gunselected,d0
  2571. ; jsr SENDFIRST
  2572. ; move.b d0,p2_gunselected
  2573. ; lsr.w #8,d0
  2574. ; move.b d0,p2_ducked
  2575. ; 
  2576. ; move.b p1_fire,d0
  2577. ; lsl.w #8,d0
  2578. ; move.b MASTERQUITTING,d0
  2579. ; or.b d0,SLAVEQUITTING
  2580. ; swap d0
  2581. ; move.b MASTERPAUSE,d0
  2582. ; or.b d0,SLAVEPAUSE
  2583. ; jsr SENDFIRST
  2584. ; or.b d0,MASTERPAUSE
  2585. ; or.b d0,SLAVEPAUSE
  2586. ; swap d0
  2587. ; or.b d0,SLAVEQUITTING
  2588. ; or.b d0,MASTERQUITTING
  2589. ; lsr.w #8,d0
  2590. ; move.b d0,p2_fire
  2591. ;
  2592. ; move.w PLAYERONEHEALTH,d0
  2593. ; jsr SENDFIRST
  2594. ; move.w d0,PLAYERTWOHEALTH
  2595. ; 
  2596. ; bsr PLR1_Control
  2597. ; bsr PLR2_Control
  2598. ; move.l PLR1_Roompt,a0
  2599. ; move.l ToZoneRoof(a0),SplitHeight
  2600. ; move.w p1_xoff,THISPLRxoff
  2601. ; move.w p1_zoff,THISPLRzoff
  2602. ; 
  2603. ; bra donetalking
  2604. ;
  2605. ;ASlaveShouldWaitOnHisMaster:
  2606.  
  2607. PLR2stuff:
  2608.  
  2609.  move.l #KeyMap,a5
  2610.  tst.b $19(a5)
  2611.  sne PLR2_PAUSE
  2612.  
  2613.  movem.l d0-d7/a0-a6,-(a7)
  2614.  
  2615.  moveq #0,d0
  2616.  move.b GunSelected,d0
  2617.  move.l LINKFILE,a6
  2618.  add.l #GunBulletTypes,a6
  2619.  move.w (a6,d0.w*8),d0
  2620.  
  2621.  move.l #PLAYERTWOAMMO,a6
  2622.  move.w (a6,d0.w*2),d0
  2623.  move.w d0,Ammo
  2624.  movem.l (a7)+,d0-d7/a0-a6
  2625.  
  2626.  move.w PLAYERTWOHEALTH,Energy
  2627.  
  2628.  jsr RECFIRST
  2629.  jsr SENDPAR
  2630.  
  2631.  move.l PLR2s_xoff,p2_xoff
  2632.  move.l PLR2s_zoff,p2_zoff
  2633.  move.l PLR2s_yoff,p2_yoff
  2634.  move.l PLR2s_height,p2_height
  2635.  move.w PLR2s_angpos,p2_angpos
  2636.  move.w PLR2_bobble,p2_bobble
  2637.  move.b PLR2_clicked,p2_clicked
  2638.  clr.b PLR2_clicked
  2639.  move.b PLR2_fire,p2_fire
  2640.  move.b PLR2_SPCTAP,p2_spctap
  2641.  clr.b PLR2_SPCTAP
  2642.  move.b PLR2_Ducked,p2_ducked
  2643.  move.b PLR2_GunSelected,p2_gunselected
  2644.  
  2645.  move.l PLR2_AIMSPD,d0
  2646.  jsr RECFIRST
  2647.  move.l d0,PLR1_AIMSPD
  2648.  
  2649.  move.l p2_xoff,d0
  2650.  jsr RECFIRST
  2651.  move.l d0,p1_xoff
  2652.  
  2653.  move.l p2_zoff,d0
  2654.  jsr RECFIRST
  2655.  move.l d0,p1_zoff
  2656.  
  2657.  move.l p2_yoff,d0
  2658.  jsr RECFIRST
  2659.  move.l d0,p1_yoff
  2660.  
  2661.  move.l p2_height,d0
  2662.  jsr RECFIRST
  2663.  move.l d0,p1_height
  2664.  
  2665.  move.w p2_angpos,d0
  2666.  swap d0
  2667.  move.w p2_bobble,d0
  2668.  jsr RECFIRST
  2669.  move.w d0,p1_bobble
  2670.  swap d0
  2671.  move.w d0,p1_angpos
  2672.  
  2673.  
  2674.  move.b p2_spctap,d0
  2675.  lsl.w #8,d0
  2676.  move.b p2_clicked,d0
  2677.  jsr RECFIRST
  2678.  move.b d0,p1_clicked
  2679.  lsr.w #8,d0
  2680.  move.b d0,p1_spctap
  2681.  swap d0
  2682.  move.w d0,TempFrames
  2683.  
  2684.  move.b p2_ducked,d0
  2685.  or.b PLR2_Squished,d0
  2686.  lsl.w #8,d0
  2687.  move.b p2_gunselected,d0
  2688.  jsr RECFIRST
  2689.  move.b d0,p1_gunselected
  2690.  lsr.w #8,d0
  2691.  move.b d0,p1_ducked
  2692.  swap d0
  2693.  move.w d0,Rand1
  2694.  
  2695.  move.b p2_fire,d0
  2696.  lsl.w #8,d0
  2697.  move.b PLR2QUITTING,d0
  2698.  or.b PLR1QUITTING,d0
  2699.  or.b PLR3QUITTING,d0
  2700.  swap d0
  2701.  move.b PLR2_PAUSE,d0
  2702.  or.b d0,PLR1_PAUSE
  2703.  or.b d0,PLR3_PAUSE
  2704.  jsr RECFIRST
  2705.  or.b d0,PLR1_PAUSE
  2706.  or.b d0,PLR2_PAUSE
  2707.  or.b d0,PLR3_PAUSE
  2708.  swap d0
  2709.  or.b d0,PLR1QUITTING
  2710.  or.b d0,PLR2QUITTING
  2711.  or.b d0,PLR3QUITTING
  2712.  lsr.w #8,d0
  2713.  move.b d0,p1_fire
  2714.  
  2715.  move.w PLAYERTWOHEALTH,d0
  2716.  jsr RECFIRST
  2717.  move.w d0,PLAYERONEHEALTH
  2718.  
  2719. *************************************** 
  2720.  move.l PLR2_AIMSPD,d0
  2721.  jsr SENDPAR
  2722.  move.l d0,PLR3_AIMSPD
  2723.  
  2724.  move.l p2_xoff,d0
  2725.  jsr SENDPAR
  2726.  move.l d0,p3_xoff
  2727.  
  2728.  move.l p2_zoff,d0
  2729.  jsr SENDPAR
  2730.  move.l d0,p3_zoff 
  2731.  
  2732.  move.l p2_yoff,d0
  2733.  jsr SENDPAR
  2734.  move.l d0,p3_yoff
  2735.   
  2736.  move.l p2_height,d0
  2737.  jsr SENDPAR
  2738.  move.l d0,p3_height
  2739.  
  2740.  move.w p2_angpos,d0
  2741.  swap d0
  2742.  move.w p2_bobble,d0
  2743.  jsr SENDPAR
  2744.  move.w d0,p3_bobble
  2745.  swap d0
  2746.  move.w d0,p3_angpos
  2747.  
  2748.  
  2749.  move.w TempFrames,d0
  2750.  swap d0
  2751.  move.b p2_spctap,d0
  2752.  lsl.w #8,d0
  2753.  move.b p2_clicked,d0
  2754.  jsr SENDPAR
  2755.  move.b d0,p3_clicked
  2756.  lsr.w #8,d0
  2757.  move.b d0,p3_spctap
  2758.  
  2759.  move.w Rand1,d0
  2760.  swap d0
  2761.  move.b p2_ducked,d0
  2762.  or.b PLR2_Squished,d0
  2763.  lsl.w #8,d0
  2764.  move.b p2_gunselected,d0
  2765.  jsr SENDPAR
  2766.  move.b d0,p3_gunselected
  2767.  lsr.w #8,d0
  2768.  move.b d0,p3_ducked
  2769.  
  2770.  move.b p2_fire,d0
  2771.  lsl.w #8,d0
  2772.  move.b PLR2QUITTING,d0
  2773.  or.b d0,PLR1QUITTING
  2774.  or.b d0,PLR3QUITTING
  2775.  swap d0
  2776.  move.b PLR2_PAUSE,d0
  2777.  or.b d0,PLR1_PAUSE
  2778.  or.b d0,PLR3_PAUSE
  2779.  jsr SENDPAR
  2780.  or.b d0,PLR1_PAUSE
  2781.  or.b d0,PLR2_PAUSE
  2782.  or.b d0,PLR3_PAUSE
  2783.  swap d0
  2784.  or.b d0,PLR1QUITTING
  2785.  or.b d0,PLR2QUITTING
  2786.  or.b d0,PLR3QUITTING
  2787.  lsr.w #8,d0
  2788.  move.b d0,p3_fire
  2789.  
  2790.  move.w PLAYERTWOHEALTH,d0
  2791.  jsr SENDPAR
  2792.  move.w d0,PLAYERTHREEHEALTH
  2793.  
  2794. *************************************** 
  2795.  move.l PLR1_AIMSPD,d0
  2796.  jsr SENDPAR
  2797.  move.l d0,PLR3_AIMSPD
  2798.  
  2799.  move.l p1_xoff,d0
  2800.  jsr SENDPAR
  2801.  move.l d0,p3_xoff
  2802.  
  2803.  move.l p1_zoff,d0
  2804.  jsr SENDPAR
  2805.  move.l d0,p3_zoff 
  2806.  
  2807.  move.l p1_yoff,d0
  2808.  jsr SENDPAR
  2809.  move.l d0,p3_yoff
  2810.   
  2811.  move.l p1_height,d0
  2812.  jsr SENDPAR
  2813.  move.l d0,p3_height
  2814.  
  2815.  move.w p1_angpos,d0
  2816.  swap d0
  2817.  move.w p1_bobble,d0
  2818.  jsr SENDPAR
  2819.  move.w d0,p3_bobble
  2820.  swap d0
  2821.  move.w d0,p3_angpos
  2822.  
  2823.  
  2824.  move.w TempFrames,d0
  2825.  swap d0
  2826.  move.b p1_spctap,d0
  2827.  lsl.w #8,d0
  2828.  move.b p1_clicked,d0
  2829.  jsr SENDPAR
  2830.  move.b d0,p3_clicked
  2831.  lsr.w #8,d0
  2832.  move.b d0,p3_spctap
  2833.  
  2834.  move.w Rand1,d0
  2835.  swap d0
  2836.  move.b p1_ducked,d0
  2837.  or.b PLR1_Squished,d0
  2838.  lsl.w #8,d0
  2839.  move.b p1_gunselected,d0
  2840.  jsr SENDPAR
  2841.  move.b d0,p3_gunselected
  2842.  lsr.w #8,d0
  2843.  move.b d0,p3_ducked
  2844.  
  2845.  move.b p1_fire,d0
  2846.  lsl.w #8,d0
  2847.  move.b PLR1QUITTING,d0
  2848.  or.b d0,PLR2QUITTING
  2849.  or.b d0,PLR3QUITTING
  2850.  swap d0
  2851.  move.b PLR1_PAUSE,d0
  2852.  or.b d0,PLR2_PAUSE
  2853.  or.b d0,PLR3_PAUSE
  2854.  jsr SENDPAR
  2855.  or.b d0,PLR1_PAUSE
  2856.  or.b d0,PLR2_PAUSE
  2857.  or.b d0,PLR3_PAUSE
  2858.  swap d0
  2859.  or.b d0,PLR1QUITTING
  2860.  or.b d0,PLR2QUITTING
  2861.  or.b d0,PLR3QUITTING
  2862.  lsr.w #8,d0
  2863.  move.b d0,p3_fire
  2864.  
  2865.  move.w PLAYERONEHEALTH,d0
  2866.  jsr SENDPAR
  2867.  move.w d0,PLAYERTHREEHEALTH
  2868.  
  2869. ************************************
  2870.  move.l PLR3_AIMSPD,d0
  2871.  jsr RECFIRST
  2872. ; move.l d0,PLR1_AIMSPD
  2873.  
  2874.  move.l p3_xoff,d0
  2875.  jsr RECFIRST
  2876. ; move.l d0,p1_xoff
  2877.  
  2878.  move.l p3_zoff,d0
  2879.  jsr RECFIRST
  2880. ; move.l d0,p1_zoff
  2881.  
  2882.  move.l p3_yoff,d0
  2883.  jsr RECFIRST
  2884. ; move.l d0,p1_yoff
  2885.  
  2886.  move.l p3_height,d0
  2887.  jsr RECFIRST
  2888. ; move.l d0,p1_height
  2889.  
  2890.  move.w p3_angpos,d0
  2891.  swap d0
  2892.  move.w p3_bobble,d0
  2893.  jsr RECFIRST
  2894. ; move.w d0,p1_bobble
  2895. ; swap d0
  2896. ; move.w d0,p1_angpos
  2897.  
  2898.  
  2899.  move.b p3_spctap,d0
  2900.  lsl.w #8,d0
  2901.  move.b p3_clicked,d0
  2902.  jsr RECFIRST
  2903. ; move.b d0,p1_clicked
  2904. ; lsr.w #8,d0
  2905. ; move.b d0,p1_spctap
  2906. ; swap d0
  2907. ; move.w d0,TempFrames
  2908.  
  2909.  move.b p3_ducked,d0
  2910.  or.b PLR3_Squished,d0
  2911.  lsl.w #8,d0
  2912.  move.b p3_gunselected,d0
  2913.  jsr RECFIRST
  2914. ; move.b d0,p1_gunselected
  2915. ; lsr.w #8,d0
  2916. ; move.b d0,p1_ducked
  2917. ; swap d0
  2918. ; move.w d0,Rand1
  2919.  
  2920.  move.b p3_fire,d0
  2921.  lsl.w #8,d0
  2922.  move.b PLR3QUITTING,d0
  2923.  or.b PLR2QUITTING,d0
  2924.  or.b PLR1QUITTING,d0
  2925.  swap d0
  2926.  move.b PLR3_PAUSE,d0
  2927.  or.b d0,PLR1_PAUSE
  2928.  or.b d0,PLR2_PAUSE
  2929.  jsr RECFIRST
  2930.  or.b d0,PLR1_PAUSE
  2931.  or.b d0,PLR2_PAUSE
  2932.  or.b d0,PLR3_PAUSE
  2933.  swap d0
  2934.  or.b d0,PLR1QUITTING
  2935.  or.b d0,PLR2QUITTING
  2936.  or.b d0,PLR3QUITTING
  2937. ; lsr.w #8,d0
  2938. ; move.b d0,p1_fire
  2939.  
  2940.  move.w PLAYERTHREEHEALTH,d0
  2941.  jsr RECFIRST
  2942. ; move.w d0,PLAYERONEHEALTH
  2943.  
  2944. *********************************
  2945. * Trigger plr3 into continuing **
  2946.  jsr SENDPAR
  2947. *********************************
  2948.  
  2949.  bsr PLR1_Control
  2950.  bsr PLR2_Control
  2951.  bsr PLR3_Control
  2952.  move.w p2_xoff,THISPLRxoff
  2953.  move.w p2_zoff,THISPLRzoff
  2954.  move.l PLR2_Roompt,a0
  2955.  move.l ToZoneRoof(a0),SplitHeight
  2956.  
  2957.  bra donetalking
  2958.  
  2959. PLR3stuff:
  2960.  
  2961.  move.l #KeyMap,a5
  2962.  tst.b $19(a5)
  2963.  sne PLR3_PAUSE
  2964.  
  2965.  movem.l d0-d7/a0-a6,-(a7)
  2966.  
  2967.  moveq #0,d0
  2968.  move.b GunSelected,d0
  2969.  move.l LINKFILE,a6
  2970.  add.l #GunBulletTypes,a6
  2971.  move.w (a6,d0.w*8),d0
  2972.  
  2973.  move.l #PLAYERTHREEAMMO,a6
  2974.  move.w (a6,d0.w*2),d0
  2975.  move.w d0,Ammo
  2976.  movem.l (a7)+,d0-d7/a0-a6
  2977.  
  2978.  move.w PLAYERTHREEHEALTH,Energy
  2979.  
  2980.  jsr RECPAR
  2981.  move.l PLR3s_xoff,p3_xoff
  2982.  move.l PLR3s_zoff,p3_zoff
  2983.  move.l PLR3s_yoff,p3_yoff
  2984.  move.l PLR3s_height,p3_height
  2985.  move.w PLR3s_angpos,p3_angpos
  2986.  move.w PLR3_bobble,p3_bobble
  2987.  move.b PLR3_clicked,p3_clicked
  2988.  clr.b PLR3_clicked
  2989.  move.b PLR3_fire,p3_fire
  2990.  move.b PLR3_SPCTAP,p3_spctap
  2991.  clr.b PLR3_SPCTAP
  2992.  move.b PLR3_Ducked,p3_ducked
  2993.  move.b PLR3_GunSelected,p3_gunselected
  2994.  
  2995. *************************************
  2996.  move.l PLR3_AIMSPD,d0
  2997.  jsr RECPAR
  2998.  move.l d0,PLR2_AIMSPD
  2999.  
  3000.  move.l p3_xoff,d0
  3001.  jsr RECPAR
  3002.  move.l d0,p2_xoff
  3003.  
  3004.  move.l p3_zoff,d0
  3005.  jsr RECPAR
  3006.  move.l d0,p2_zoff 
  3007.  
  3008.  move.l p3_yoff,d0
  3009.  jsr RECPAR
  3010.  move.l d0,p2_yoff
  3011.   
  3012.  move.l p3_height,d0
  3013.  jsr RECPAR
  3014.  move.l d0,p2_height
  3015.  
  3016.  move.w p3_angpos,d0
  3017.  swap d0
  3018.  move.w p3_bobble,d0
  3019.  jsr RECPAR
  3020.  move.w d0,p2_bobble
  3021.  swap d0
  3022.  move.w d0,p2_angpos
  3023.  
  3024.  move.b p3_spctap,d0
  3025.  lsl.w #8,d0
  3026.  move.b p3_clicked,d0
  3027.  jsr RECPAR
  3028.  move.b d0,p2_clicked
  3029.  lsr.w #8,d0
  3030.  move.b d0,p2_spctap
  3031.  swap d0
  3032.  move.w d0,TempFrames
  3033.  
  3034.  move.b p3_ducked,d0
  3035.  or.b PLR3_Squished,d0
  3036.  lsl.w #8,d0
  3037.  move.b p3_gunselected,d0
  3038.  jsr RECPAR
  3039.  move.b d0,p2_gunselected
  3040.  lsr.w #8,d0
  3041.  move.b d0,p2_ducked
  3042.  swap d0
  3043.  move.w d0,Rand1 
  3044.  
  3045.  move.b p3_fire,d0
  3046.  lsl.w #8,d0
  3047.  move.b PLR3QUITTING,d0
  3048.  or.b d0,PLR1QUITTING
  3049.  or.b d0,PLR2QUITTING
  3050.  swap d0
  3051.  move.b PLR3_PAUSE,d0
  3052.  or.b d0,PLR1_PAUSE
  3053.  or.b d0,PLR2_PAUSE
  3054.  jsr RECPAR
  3055.  or.b d0,PLR1_PAUSE
  3056.  or.b d0,PLR2_PAUSE
  3057.  or.b d0,PLR3_PAUSE
  3058.  swap d0
  3059.  or.b d0,PLR1QUITTING
  3060.  or.b d0,PLR2QUITTING
  3061.  or.b d0,PLR3QUITTING
  3062.  lsr.w #8,d0
  3063.  move.b d0,p2_fire
  3064.  
  3065.  move.w PLAYERTHREEHEALTH,d0
  3066.  jsr RECPAR
  3067.  move.w d0,PLAYERTWOHEALTH
  3068.  
  3069. *************************************
  3070.  move.l PLR3_AIMSPD,d0
  3071.  jsr RECPAR
  3072.  move.l d0,PLR1_AIMSPD
  3073.  
  3074.  move.l p3_xoff,d0
  3075.  jsr RECPAR
  3076.  move.l d0,p1_xoff
  3077.  
  3078.  move.l p3_zoff,d0
  3079.  jsr RECPAR
  3080.  move.l d0,p1_zoff 
  3081.  
  3082.  move.l p3_yoff,d0
  3083.  jsr RECPAR
  3084.  move.l d0,p1_yoff
  3085.   
  3086.  move.l p3_height,d0
  3087.  jsr RECPAR
  3088.  move.l d0,p1_height
  3089.  
  3090.  move.w p3_angpos,d0
  3091.  swap d0
  3092.  move.w p3_bobble,d0
  3093.  jsr RECPAR
  3094.  move.w d0,p1_bobble
  3095.  swap d0
  3096.  move.w d0,p1_angpos
  3097.  
  3098.  move.b p3_spctap,d0
  3099.  lsl.w #8,d0
  3100.  move.b p3_clicked,d0
  3101.  jsr RECPAR
  3102.  move.b d0,p1_clicked
  3103.  lsr.w #8,d0
  3104.  move.b d0,p1_spctap
  3105.  swap d0
  3106.  move.w d0,TempFrames
  3107.  
  3108.  move.b p3_ducked,d0
  3109.  or.b PLR3_Squished,d0
  3110.  lsl.w #8,d0
  3111.  move.b p3_gunselected,d0
  3112.  jsr RECPAR
  3113.  move.b d0,p1_gunselected
  3114.  lsr.w #8,d0
  3115.  move.b d0,p1_ducked
  3116.  swap d0
  3117.  move.w d0,Rand1 
  3118.  
  3119.  move.b p3_fire,d0
  3120.  lsl.w #8,d0
  3121.  move.b PLR3QUITTING,d0
  3122.  or.b d0,PLR1QUITTING
  3123.  or.b d0,PLR2QUITTING
  3124.  swap d0
  3125.  move.b PLR3_PAUSE,d0
  3126.  or.b d0,PLR1_PAUSE
  3127.  or.b d0,PLR2_PAUSE
  3128.  jsr RECPAR
  3129.  or.b d0,PLR1_PAUSE
  3130.  or.b d0,PLR2_PAUSE
  3131.  or.b d0,PLR3_PAUSE
  3132.  swap d0
  3133.  or.b d0,PLR1QUITTING
  3134.  or.b d0,PLR2QUITTING
  3135.  or.b d0,PLR3QUITTING
  3136.  lsr.w #8,d0
  3137.  move.b d0,p2_fire
  3138.  
  3139.  move.w PLAYERTHREEHEALTH,d0
  3140.  jsr RECPAR
  3141.  move.w d0,PLAYERONEHEALTH
  3142.  
  3143.  
  3144. *************************************
  3145. ***** Wait for others to finish.*****
  3146.  jsr RECPAR
  3147. *************************************
  3148. *************************************
  3149. *********************************
  3150.  
  3151.  bsr PLR1_Control
  3152.  bsr PLR2_Control
  3153.  bsr PLR3_Control
  3154.  move.w p2_xoff,THISPLRxoff
  3155.  move.w p2_zoff,THISPLRzoff
  3156.  move.l PLR2_Roompt,a0
  3157.  move.l ToZoneRoof(a0),SplitHeight
  3158.  
  3159.  
  3160. donetalking:
  3161.  
  3162.  
  3163.  move.l #ZoneBrightTable,a1
  3164.  move.l ZoneAdds,a2
  3165.  move.l PLR2_ListOfGraphRooms,a0
  3166. ; move.l PLR2_PointsToRotatePtr,a5
  3167.  move.l a0,a5
  3168.  cmp.b #'s',mors
  3169.  beq.s doallz
  3170.  move.l PLR1_ListOfGraphRooms,a0
  3171. ; move.l PLR1_PointsToRotatePtr,a5
  3172.  move.l a0,a5 
  3173. doallz
  3174.  move.w (a0),d0
  3175.  blt.s doneallz
  3176.  add.w #8,a0
  3177.  
  3178.  move.l (a2,d0.w*4),a3
  3179.  add.l LEVELDATA,a3
  3180.  move.w ToZoneBrightness(a3),d2
  3181.  
  3182.  blt.s justbright
  3183.  move.w d2,d3
  3184.  lsr.w #8,d3
  3185.  tst.b d3
  3186.  beq.s justbright
  3187.  
  3188.  move.l #BrightAnimTable,a4
  3189.  move.w -2(a4,d3.w*2),d2
  3190.  
  3191. justbright:
  3192.  muls #32,d2
  3193.  divs #20,d2
  3194.  move.w d2,(a1,d0.w*4)
  3195.  
  3196.  move.w ToUpperBrightness(a3),d2
  3197.  
  3198.  blt.s justbright2
  3199.  move.w d2,d3
  3200.  lsr.w #8,d3
  3201.  tst.b d3
  3202.  beq.s justbright2
  3203.  
  3204.  move.l #BrightAnimTable,a4
  3205.  move.w -2(a4,d3.w*2),d2
  3206.  
  3207. justbright2:
  3208.  
  3209.  muls #32,d2
  3210.  divs #20,d2
  3211.  move.w d2,2(a1,d0.w*4)
  3212.  
  3213.  bra doallz
  3214.  
  3215. doneallz:
  3216.  
  3217.  move.l PointBrights,a2
  3218.  move.l #CurrentPointBrights,a3
  3219. justtheone:
  3220.  move.w (a5),d0
  3221.  blt whythehell
  3222.  addq #8,a5
  3223.  
  3224.  muls #40,d0
  3225.  
  3226.  move.w #39,d7
  3227.  
  3228. allinzone:
  3229.  move.w (a2,d0.w*2),d2
  3230.  
  3231.  tst.b d2
  3232.  blt.s .justbright
  3233.  move.w d2,d3
  3234.  lsr.w #8,d3
  3235.  tst.b d3
  3236.  beq.s .justbright
  3237.  
  3238.  move.w d3,d4
  3239.  and.w #$f,d3
  3240.  lsr.w #4,d4
  3241.  add.w #1,d4
  3242.  move.l #BrightAnimTable,a0
  3243.  move.w -2(a0,d3.w*2),d3
  3244.  ext.w d2
  3245.  sub.w d2,d3
  3246.  muls d4,d3
  3247.  asr.w #4,d3
  3248.  add.w d3,d2
  3249.  
  3250. .justbright:
  3251.  ext.w d2
  3252.  
  3253.  muls #31,d2
  3254.  divs #20,d2
  3255.  bge.s .itspos
  3256.  sub.w #600,d2
  3257. .itspos:
  3258.  add.w #300,d2
  3259.  
  3260.  move.w d2,(a3,d0.w*2)
  3261.  addq #1,d0
  3262.  dbra d7,allinzone
  3263.  
  3264.  bra justtheone
  3265.  
  3266. whythehell:
  3267.  
  3268.  move.l PLR1_Roompt,a0
  3269.  move.l #CurrentPointBrights,a1
  3270.  move.l ZoneBorderPts,a2
  3271.  move.w (a0),d0
  3272.  muls #10,d0
  3273.  lea (a2,d0.w*2),a2
  3274.  lea (a1,d0.w*8),a1
  3275.  
  3276.  moveq #9,d7
  3277.  moveq #0,d0
  3278.  moveq #0,d1
  3279. findaverage:
  3280.  tst.w (a2)+
  3281.  blt.s .foundaverage
  3282.  addq #1,d0
  3283.  move.w (a1)+,d2
  3284.  bge.s .okpos
  3285.  neg.w d2
  3286. .okpos:
  3287.  add.w d2,d1
  3288.  
  3289.  dbra d7,findaverage
  3290.  
  3291. .foundaverage:
  3292.  
  3293.  ext.l d1
  3294.  divs d0,d1
  3295.  sub.w #300,d1
  3296.  move.w d1,PLR1_RoomBright
  3297.  
  3298.  cmp.b #'n',mors
  3299.  beq nosee
  3300.  
  3301.  move.l PLR1_Roompt,FromRoom
  3302.  move.l PLR2_Roompt,ToRoom
  3303.  move.w p1_xoff,Viewerx
  3304.  move.w p1_zoff,Viewerz
  3305.  move.l p1_yoff,d0
  3306.  asr.l #7,d0
  3307.  move.w d0,Viewery
  3308.  move.w p2_xoff,Targetx
  3309.  move.w p2_zoff,Targetz
  3310.  move.l p2_yoff,d0
  3311.  asr.l #7,d0
  3312.  move.w d0,Targety
  3313.  move.b PLR1_StoodInTop,ViewerTop
  3314.  move.b PLR2_StoodInTop,TargetTop
  3315.  jsr CanItBeSeen
  3316.  
  3317.  move.l PLR1_Obj,a0
  3318.  move.b CanSee,d0
  3319.  and.b #2,d0
  3320.  move.b d0,17(a0)
  3321.  move.l PLR2_Obj,a0
  3322.  move.b CanSee,d0
  3323.  and.b #1,d0
  3324.  move.b d0,17(a0)
  3325.  
  3326. nosee:
  3327.  
  3328.  
  3329.  move.w TempFrames,d0
  3330.  add.w d0,p1_holddown
  3331.  cmp.w #30,p1_holddown
  3332.  blt.s oklength
  3333.  move.w #30,p1_holddown
  3334. oklength:
  3335.  
  3336.  tst.b p1_fire
  3337.  bne.s okstillheld
  3338.  sub.w d0,p1_holddown
  3339.  bge.s okstillheld
  3340.  move.w #0,p1_holddown
  3341.  
  3342. okstillheld:
  3343.  
  3344.  move.w TempFrames,d0
  3345.  add.w d0,p2_holddown
  3346.  
  3347.  cmp.w #30,p2_holddown
  3348.  blt.s oklength2
  3349.  move.w #30,p2_holddown
  3350. oklength2:
  3351.  
  3352.  
  3353.  tst.b p2_fire
  3354.  bne.s okstillheld2
  3355.  sub.w d0,p2_holddown
  3356.  bge.s okstillheld2
  3357.  move.w #0,p2_holddown
  3358. okstillheld2:
  3359.  
  3360. ***** CHECKING LIGHT *********
  3361.  
  3362. ; move.w #-20,d0
  3363. ; move.w PLR1_xoff,d1
  3364. ; move.w PLR1_zoff,d2
  3365. ; move.l PLR1_Roompt,a0
  3366. ; move.w (a0),d3
  3367. ; move.w PLR1_angpos,d4
  3368. ;
  3369. ; jsr BRIGHTENPOINTSANGLE
  3370.  
  3371. ******************************
  3372.  
  3373. ; move.l #PLR1_GunData,a1
  3374. ; move.w p1_holddown,d0
  3375. ; move.w #50,10+32*3(a1)
  3376. ; move.l #PLR2_GunData,a1
  3377. ; move.w p2_holddown,d0
  3378. ; move.w #50,10+32*3(a1)
  3379.  
  3380. ******************************************
  3381. ******************************************
  3382.  
  3383.  move.w TempFrames,d1
  3384.  bgt.s noze
  3385.  moveq #1,d1
  3386. noze:
  3387.  
  3388.  move.w PLR1_xoff,d0
  3389.  sub.w OLDX1,d0
  3390.  asl.w #4,d0
  3391.  ext.l d0
  3392.  divs d1,d0
  3393.  move.w d0,XDIFF1
  3394.  move.w PLR2_xoff,d0
  3395.  sub.w OLDX2,d0
  3396.  asl.w #4,d0
  3397.  ext.l d0
  3398.  divs d1,d0
  3399.  move.w d0,XDIFF2
  3400.  move.w PLR1_zoff,d0
  3401.  sub.w OLDZ1,d0
  3402.  asl.w #4,d0
  3403.  ext.l d0
  3404.  divs d1,d0
  3405.  move.w d0,ZDIFF1
  3406.  move.w PLR2_zoff,d0
  3407.  sub.w OLDZ2,d0
  3408.  asl.w #4,d0
  3409.  ext.l d0
  3410.  divs d1,d0
  3411.  move.w d0,ZDIFF2
  3412.  
  3413.  cmp.b #'2',mors
  3414.  bgt.s Implayer3
  3415.  beq.s ImPlayer2OhYesIAm
  3416.  bsr USEPLR1
  3417.  bra IWasPlayer1
  3418.  
  3419. ImPlayer2OhYesIAm:
  3420.  bsr USEPLR2
  3421.  bra IWasPlayer1
  3422.  
  3423. Implayer3
  3424.  bsr USEPLR3 
  3425.  
  3426. IWasPlayer1:
  3427.  
  3428.  
  3429.  cmp.b #'2',WHICHAMI
  3430.  bgt drawplayer3
  3431.  beq drawplayer2
  3432.  
  3433.  move.w #0,scaleval
  3434.  
  3435.  move.l PLR1_xoff,xoff
  3436.  move.l PLR1_yoff,yoff
  3437.  move.l PLR1_zoff,zoff
  3438.  move.w PLR1_angpos,angpos
  3439.  move.w PLR1_cosval,cosval
  3440.  move.w PLR1_sinval,sinval
  3441.  
  3442.  
  3443.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  3444.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  3445.  move.b PLR1_Echo,PLREcho
  3446.  move.l PLR1_Roompt,Roompt
  3447.  
  3448.  move.l #KeyMap,a5
  3449.  moveq #0,d5
  3450.  move.b look_behind_key,d5
  3451.  tst.b (a5,d5.w)
  3452.  beq.s .nolookback
  3453.  
  3454.  move.l GUN_OBJ,a0
  3455.  move.w #-1,12(a0)
  3456.  
  3457.  eor.w #4096,angpos 
  3458.  neg.w cosval
  3459.  neg.w sinval
  3460. .nolookback:
  3461.  
  3462.  jsr OrderZones
  3463.  jsr objmoveanim
  3464.  jsr EnergyBar
  3465.  jsr AmmoBar
  3466.  
  3467.  
  3468. ;********************************************
  3469. ;************* Do reflection ****************
  3470. ;
  3471. ; move.l ListOfGraphRooms,a0
  3472. ; move.l ZoneAdds,a1
  3473. ;checkwaterheights
  3474. ; move.w (a0),d0
  3475. ; blt allzonesdone
  3476. ; addq #8,a0
  3477. ; move.l (a1,d0.w*4),a2
  3478. ; 
  3479. ; add.l LEVELDATA,a2
  3480. ; 
  3481. ; move.l ToZoneWater(a2),d0
  3482. ; cmp.l ToZoneFloor(a2),d0
  3483. ; blt.s WEHAVEAHEIGHT
  3484. ; 
  3485. ; bra.s checkwaterheights
  3486. ;
  3487. ;WEHAVEAHEIGHT:
  3488. ;
  3489. ; sub.l yoff,d0
  3490. ; blt.s underwater
  3491. ; 
  3492. ; add.l d0,d0
  3493. ; add.l d0,yoff
  3494. ; 
  3495. ; move.l FASTBUFFER2,FASTBUFFER
  3496. ; move.w #0,leftclip
  3497. ; move.w RIGHTX,rightclip
  3498. ; move.w #0,deftopclip
  3499. ; move.w #BOTTOMY/2,defbotclip
  3500. ; move.w #0,topclip
  3501. ; move.w #BOTTOMY/2,botclip
  3502. ;
  3503. ; clr.b DOANYWATER 
  3504. ; 
  3505. ; bsr DrawDisplay
  3506. ; 
  3507. ;allzonesdone:
  3508. ;underwater:
  3509.  
  3510. ********************************************
  3511.  
  3512.  st DOANYWATER
  3513.  
  3514.  move.l PLR1_yoff,yoff
  3515.  
  3516.  move.w #0,leftclip
  3517.  move.w RIGHTX,rightclip
  3518.  move.w #0,deftopclip
  3519.  move.w WIDESCRN,d0
  3520.  add.w d0,deftopclip
  3521.  
  3522.  move.w BOTTOMY,defbotclip
  3523.  sub.w d0,defbotclip
  3524.  move.w #0,topclip
  3525.  add.w d0,topclip
  3526.  move.w BOTTOMY,botclip
  3527.  sub.w d0,botclip
  3528. ; sub.l #10*104*4,frompt
  3529. ; sub.l #10*104*4,midpt
  3530.  
  3531. * Subroom loop
  3532.  
  3533.  bsr DrawDisplay 
  3534.  
  3535.  bra nodrawp2
  3536.  
  3537. drawplayer2
  3538.  
  3539.  move.w #0,scaleval
  3540.  move.l PLR2_xoff,xoff
  3541.  move.l PLR2_yoff,yoff
  3542.  move.l PLR2_zoff,zoff
  3543.  move.w PLR2_angpos,angpos
  3544.  move.w PLR2_cosval,cosval
  3545.  move.w PLR2_sinval,sinval 
  3546.  
  3547.  
  3548.  
  3549.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  3550.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  3551.  move.b PLR2_Echo,PLREcho
  3552.  move.l PLR2_Roompt,Roompt
  3553.  
  3554.  move.l #KeyMap,a5
  3555.  moveq #0,d5
  3556.  move.b look_behind_key,d5
  3557.  tst.b (a5,d5.w)
  3558.  beq.s .nolookback
  3559.  
  3560.  move.l GUN_OBJ,a0
  3561.  move.w #-1,12(a0)
  3562.  eor.w #4096,angpos 
  3563.  
  3564.  neg.w cosval
  3565.  neg.w sinval
  3566. .nolookback:
  3567.  
  3568.  jsr OrderZones
  3569.  jsr objmoveanim
  3570.  jsr EnergyBar
  3571.  jsr AmmoBar
  3572.  
  3573.  move.w WIDESCRN,d0
  3574.  
  3575.  move.w #0,leftclip
  3576.  move.w RIGHTX,rightclip
  3577.  move.w #0,deftopclip
  3578.  add.w d0,deftopclip
  3579.  move.w BOTTOMY,defbotclip
  3580.  sub.w d0,defbotclip
  3581.  move.w #0,topclip
  3582.  add.w d0,topclip
  3583.  move.w BOTTOMY,botclip
  3584.  sub.w d0,botclip
  3585.  
  3586.  st DOANYWATER
  3587.  bsr DrawDisplay
  3588.  
  3589.  bra nodrawp2
  3590.  
  3591. drawplayer3:
  3592.  
  3593.  move.w #0,scaleval
  3594.  move.l PLR3_xoff,xoff
  3595.  move.l PLR3_yoff,yoff
  3596.  move.l PLR3_zoff,zoff
  3597.  move.w PLR3_angpos,angpos
  3598.  move.w PLR3_cosval,cosval
  3599.  move.w PLR3_sinval,sinval 
  3600.  
  3601.  
  3602.  
  3603.  move.l PLR3_ListOfGraphRooms,ListOfGraphRooms
  3604.  move.l PLR3_PointsToRotatePtr,PointsToRotatePtr
  3605.  move.b PLR3_Echo,PLREcho
  3606.  move.l PLR3_Roompt,Roompt
  3607.  
  3608.  move.l #KeyMap,a5
  3609.  moveq #0,d5
  3610.  move.b look_behind_key,d5
  3611.  tst.b (a5,d5.w)
  3612.  beq.s .nolookback
  3613.  
  3614.  move.l GUN_OBJ,a0
  3615.  move.w #-1,12(a0)
  3616.  eor.w #4096,angpos 
  3617.  
  3618.  neg.w cosval
  3619.  neg.w sinval
  3620. .nolookback:
  3621.  
  3622.  jsr OrderZones
  3623.  jsr objmoveanim
  3624.  jsr EnergyBar
  3625.  jsr AmmoBar
  3626.  
  3627.  move.w WIDESCRN,d0
  3628.  
  3629.  move.w #0,leftclip
  3630.  move.w RIGHTX,rightclip
  3631.  move.w #0,deftopclip
  3632.  add.w d0,deftopclip
  3633.  move.w BOTTOMY,defbotclip
  3634.  sub.w d0,defbotclip
  3635.  move.w #0,topclip
  3636.  add.w d0,topclip
  3637.  move.w BOTTOMY,botclip
  3638.  sub.w d0,botclip
  3639.  
  3640.  st DOANYWATER
  3641.  bsr DrawDisplay
  3642.  
  3643.  
  3644. nodrawp2:
  3645.  
  3646. ***************************************** 
  3647. * Copy from copbuff to chip ram
  3648.  
  3649.  
  3650. ; move.l drawpt,a3
  3651. ; adda.w #10,a3
  3652. ; move.l COPSCRNBUFF,a2
  3653. ; move.w #2,d6
  3654. ; adda.w #10,a2
  3655. ;COPYOUT
  3656. ; move.w #31,d0
  3657. ;COPYDOWN1:
  3658. ; move.w #3,d1
  3659. ; move.l a2,a4
  3660. ; move.l a3,a5
  3661. ;.inlop1:
  3662. ;val SET 0
  3663. ; REPT 20
  3664. ; move.w val(a4),val(a5)
  3665. ;val SET val+104*4
  3666. ; ENDR
  3667. ; adda.l #104*4*20,a4
  3668. ; adda.l #104*4*20,a5
  3669. ; dbra d1,.inlop1
  3670. ; addq #4,a2
  3671. ; addq #4,a3
  3672. ; dbra d0,COPYDOWN1
  3673. ; addq #4,a2
  3674. ; addq #4,a3
  3675. ; dbra d6,COPYOUT 
  3676.  
  3677.  tst.b REALMAPON
  3678.  beq.s .nomap
  3679.  bsr DoTheMapWotNastyCharlesIsForcingMeToDo
  3680. .nomap
  3681.  
  3682.  move.w WIDESCRN,d7
  3683.  
  3684.  tst.b FULLSCR
  3685.  beq nobigconv
  3686.  
  3687.  move.l FASTBUFFER,a0
  3688. ; add.l #320*2*20,a0
  3689.  move.w d7,d6
  3690.  muls #320,d6
  3691.  add.l d6,a0
  3692.  move.l SCRNDRAWPT,a1
  3693.  move.w d7,d6
  3694.  muls #40,d6
  3695.  add.l d6,a1
  3696.  add.l #2,a1
  3697.  move.l #(288/8)-1,d0
  3698.  move.l #231,d1
  3699.  sub.w d7,d1
  3700.  sub.w d7,d1
  3701.  blt nochunk
  3702.  move.w #(320-288),d2
  3703.  move.w #4,d3
  3704.  
  3705.  bra donebigconv
  3706.  
  3707. nobigconv:
  3708.  
  3709.  move.l FASTBUFFER,a0
  3710.  move.w d7,d6
  3711.  muls #320,d6
  3712.  add.l d6,a0
  3713.  move.l SCRNDRAWPT,a1
  3714.  add.l #8+40*20,a1
  3715.  move.w d7,d6
  3716.  muls #40,d6
  3717.  add.l d6,a1
  3718.  move.l #(192/8)-1,d0
  3719.  move.l #159,d1
  3720.  sub.w d7,d1
  3721.  sub.w d7,d1
  3722.  blt nochunk
  3723.  move.w #(320-192),d2
  3724.  move.w #16,d3
  3725. donebigconv
  3726.  
  3727.  tst.b DOUBLEHEIGHT
  3728.  beq.s .nodoub
  3729.  asr.w #1,d1
  3730.  blt nochunk
  3731.  add.w #320,d2
  3732.  add.w #40,d3
  3733. .nodoub:
  3734.  
  3735.  move.b DOUBLEWIDTH,d4
  3736.  
  3737.  move.b PLR1_TELEPORTED,d5
  3738.  clr.b PLR1_TELEPORTED
  3739.  cmp.b #'s',mors
  3740.  bne.s .notplr2
  3741.  move.b PLR2_TELEPORTED,d5
  3742.  clr.b PLR2_TELEPORTED
  3743. .notplr2
  3744.  jsr CHUNKYTOPLANAR 
  3745.  
  3746. nochunk:
  3747.  
  3748.  
  3749.  move.l #KeyMap,a5
  3750.  tst.b $4a(a5)
  3751.  beq .nosmallscr
  3752.  
  3753.  move.w #100,d2
  3754.  move.l #0,d7
  3755.  move.l #0,d6
  3756.  tst.b FULLSCR
  3757.  bne.s .attop
  3758.  move.l #40*20,d7
  3759.  move.l #40*52,d6
  3760.  move.w #60,d2
  3761. .attop:
  3762.  
  3763.  move.w WIDESCRN,d0
  3764.  move.l SCRNDRAWPT,a0
  3765.  add.l d7,a0
  3766.  muls #40,d0
  3767.  add.l d0,a0
  3768.  bsr CLRTWOLINES
  3769.  move.w WIDESCRN,d0
  3770.  move.l SCRNSHOWPT,a0
  3771.  add.l d7,a0
  3772.  muls #40,d0
  3773.  add.l d0,a0
  3774.  bsr CLRTWOLINES
  3775.  
  3776.  
  3777.  add.w #2,WIDESCRN
  3778.  
  3779.  cmp.w WIDESCRN,d2
  3780.  bgt.s .okwide
  3781.  move.w d2,WIDESCRN
  3782. .okwide:
  3783.  
  3784.  move.l SCRNDRAWPT,a0
  3785.  add.l #232*40,a0
  3786.  sub.l d6,a0
  3787.  move.w WIDESCRN,d0
  3788.  muls #40,d0
  3789.  sub.l d0,a0
  3790.  bsr CLRTWOLINES
  3791.  move.l SCRNSHOWPT,a0
  3792.  sub.l d6,a0
  3793.  add.l #232*40,a0
  3794.  move.w WIDESCRN,d0
  3795.  muls #40,d0
  3796.  sub.l d0,a0
  3797.  bsr CLRTWOLINES
  3798.  
  3799. .nosmallscr
  3800.  
  3801.  tst.b $5e(a5)
  3802.  beq.s .nobigscr
  3803.  tst.w WIDESCRN
  3804.  ble.s .nobigscr
  3805.  
  3806.  sub.w #2,WIDESCRN
  3807.  
  3808. .nobigscr
  3809.  
  3810.  
  3811. ; tst.b (a5)
  3812. ; beq.s .nosavescrn
  3813. ;
  3814. ; not.b USEDOUG
  3815. ;
  3816. ; jsr SAVETHESCREEN
  3817. ;
  3818. ;.nosavescrn:
  3819.  
  3820.  tst.b $5b(a5)
  3821.  beq notdoubheight
  3822.  tst.b LASTDH
  3823.  bne notdoubheight2
  3824.  move.l SCRNSHOWPT,a0
  3825.  jsr WIPEDISPLAY
  3826.  move.l SCRNDRAWPT,a0
  3827.  jsr WIPEDISPLAY
  3828.  st LASTDH 
  3829.  
  3830.  move.w #0,d0
  3831.  move.w #0,d1
  3832.  
  3833.  not.b DOUBLEHEIGHT
  3834.  beq.s singlepixheight
  3835.  move.w #-40,d0
  3836.  move.w #40,d1
  3837.  
  3838. singlepixheight:
  3839.  
  3840.  move.l #SCRMODULOS,a0
  3841.  move.w #115,d2
  3842. putinmode:
  3843.  move.w d0,6(a0)
  3844.  move.w d0,6+4(a0)
  3845.  move.w d1,6+16(a0)
  3846.  move.w d1,6+16+4(a0)
  3847.  add.w #32,a0
  3848.  dbra d2,putinmode
  3849.  
  3850.  bra notdoubheight2
  3851.  
  3852. notdoubheight:
  3853.  clr.b LASTDH
  3854. notdoubheight2
  3855.  
  3856.  tst.b $5a(a5)
  3857.  beq.s notdoubwidth
  3858.  tst.b LASTDW
  3859.  bne notdoubwidth2
  3860.  move.l SCRNSHOWPT,a0
  3861.  jsr WIPEDISPLAY
  3862.  move.l SCRNDRAWPT,a0
  3863.  jsr WIPEDISPLAY
  3864.  st LASTDW
  3865.  not.b DOUBLEWIDTH
  3866.  bra.s notdoubwidth2
  3867.  
  3868. notdoubwidth:
  3869.  clr.b LASTDW
  3870. notdoubwidth2:
  3871.  
  3872. ***************************************** 
  3873.  move.l PLR2_Roompt,a0
  3874.  move.l #WorkSpace,a1
  3875.  clr.l (a1)
  3876.  clr.l 4(a1)
  3877.  clr.l 8(a1)
  3878.  clr.l 12(a1)
  3879.  clr.l 16(a1)
  3880.  clr.l 20(a1)
  3881.  clr.l 24(a1)
  3882.  clr.l 28(a1)
  3883.  
  3884.  cmp.b #'n',mors
  3885.  beq.s plr1only
  3886.  
  3887.  lea ToListOfGraph(a0),a0
  3888. .doallrooms:
  3889.  move.w (a0),d0
  3890.  blt.s .allroomsdone
  3891.  addq #8,a0
  3892.  move.w d0,d1
  3893.  asr.w #3,d0
  3894.  bset d1,(a1,d0.w)
  3895.  bra .doallrooms
  3896. .allroomsdone:
  3897.  
  3898. plr1only:
  3899.  
  3900.  move.l PLR1_Roompt,a0
  3901.  lea ToListOfGraph(a0),a0
  3902. .doallrooms2:
  3903.  move.w (a0),d0
  3904.  blt.s .allroomsdone2
  3905.  addq #8,a0
  3906.  move.w d0,d1
  3907.  asr.w #3,d0
  3908.  bset d1,(a1,d0.w)
  3909.  bra .doallrooms2
  3910. .allroomsdone2:
  3911.  
  3912.  move.l #%000001,d7
  3913.  lea TEAMWORK,a2
  3914.  move.l ObjectData,a0
  3915.  sub.w #64,a0
  3916. .doallobs:
  3917.  add.w #64,a0
  3918.  move.w (a0),d0
  3919.  blt.s .allobsdone
  3920.  move.w 12(a0),d0
  3921.  blt.s .doallobs
  3922.  move.w d0,d1
  3923.  asr.w #3,d0
  3924.  btst d1,(a1,d0.w)
  3925.  bne.s .worryobj
  3926.  move.b 16(a0),d0
  3927.  btst d0,d7
  3928.  beq.s .doallobs
  3929.  moveq #0,d0
  3930.  move.b teamnumber(a0),d0
  3931.  blt.s .doallobs
  3932.  asl.w #4,d0
  3933.  tst.w SEENBY(a2,d0.w)
  3934.  blt.s .doallobs
  3935. .worryobj:
  3936.  or.b #127,worry(a0)
  3937.  bra.s .doallobs
  3938. .allobsdone:
  3939.  
  3940.  
  3941.  
  3942. ; move.l #brightentab,a0
  3943. ; move.l frompt,a3
  3944. ; adda.w #(4*33)+(104*4*20),a3
  3945. ; move.w #20,d7
  3946. ; move.w #20,d6
  3947. ;horl:
  3948. ; move.w d6,d5
  3949. ; move.l a3,a1
  3950. ;vertl
  3951. ; move.w (a1),d0
  3952. ; move.w (a0,d0.w*2),(a1)
  3953. ; addq #4,a1
  3954. ; dbra d5,vertl
  3955. ; adda.w #104*4,a3
  3956. ; dbra d7,horl
  3957.  
  3958.  move.l #$dff000,a6
  3959.  
  3960. ; move.w #$300,col0(a6)
  3961.  
  3962.  move.l #KeyMap,a5
  3963.  tst.b $45(a5)
  3964.  beq.s noend
  3965.  
  3966.  cmp.b #'s',mors
  3967.  beq plr2quit 
  3968.  
  3969.  st MASTERQUITTING
  3970.  bra noend
  3971.  
  3972. plr2quit:
  3973.  st SLAVEQUITTING
  3974. noend:
  3975.  
  3976.  tst.b MASTERQUITTING
  3977.  beq.s .noquit
  3978.  tst.b SLAVEQUITTING
  3979.  beq.s .noquit
  3980.  jmp endnomusic
  3981. .noquit
  3982.  
  3983.  cmp.b #'n',mors
  3984.  bne.s noexit
  3985.  move.l PLR1_Roompt,a0
  3986.  move.w (a0),d0
  3987. ; move.w PLOPT,d1
  3988. ; move.l #ENDZONES,a0
  3989. ; cmp.w (a0,d1.w*2),d0
  3990.  
  3991.  cmp.w ENDZONE,d0
  3992.  
  3993. ; change this for quick exit, charlie
  3994. zzzz:
  3995. ; bra end
  3996.  
  3997.  bne.s noexit
  3998.  add.w #2,TELVAL
  3999.  cmp.w #9,TELVAL
  4000.  blt noexit
  4001.  
  4002.  jmp end
  4003. noexit:
  4004.  
  4005. ; tst.w PLAYERONEHEALTH
  4006. ; bgt nnoend1
  4007. ; jmp end
  4008. ;nnoend1:
  4009. ; tst.w PLAYERTWOHEALTH
  4010. ; bgt nnoend2
  4011. ; jmp end
  4012. ;nnoend2:
  4013.  
  4014. ; move.l SwitchData,a0
  4015. ; tst.b 24+8(a0)
  4016. ; bne end
  4017.   
  4018. ; JSR STOPTIMER
  4019.  
  4020.  
  4021.  bra lop
  4022.  
  4023.  
  4024.  
  4025. ; include "ab3:demo/system/keyboard.s"
  4026.  include "ab3:source_4000/ab3diipatchidr.s"
  4027.  
  4028. CLRTWOLINES:
  4029.  
  4030.  move.l d2,-(a7)
  4031.  
  4032.  moveq #0,d1
  4033.  move.w #7,d2
  4034. .ccc
  4035.  move.l d1,2(a0)
  4036.  move.l d1,6(a0)
  4037.  move.l d1,10(a0)
  4038.  move.l d1,14(a0)
  4039.  move.l d1,18(a0)
  4040.  move.l d1,22(a0)
  4041.  move.l d1,26(a0)
  4042.  move.l d1,30(a0)
  4043.  move.l d1,34(a0)
  4044.  move.l d1,2+40(a0)
  4045.  move.l d1,6+40(a0)
  4046.  move.l d1,10+40(a0)
  4047.  move.l d1,14+40(a0)
  4048.  move.l d1,18+40(a0)
  4049.  move.l d1,22+40(a0)
  4050.  move.l d1,26+40(a0)
  4051.  move.l d1,30+40(a0)
  4052.  move.l d1,34+40(a0)
  4053.  add.l #10240,a0
  4054.  dbra d2,.ccc
  4055.  move.l (a7)+,d2
  4056.  rts
  4057.  
  4058.  
  4059. LASTDH: dc.b 0
  4060. LASTDW: dc.b 0
  4061. WIDESCRN: dc.w 0
  4062. TRRANS: dc.w 0
  4063. DOANYWATER: dc.w 0
  4064.  
  4065. DoTheMapWotNastyCharlesIsForcingMeToDo:
  4066.  
  4067.  move.l TexturePal,a4
  4068.  add.l #256*32,a4
  4069. ; add.w MAPBRIGHT,a4
  4070.  
  4071.  move.l #KeyMap,a5
  4072.  tst.b $50(a5)
  4073.  beq.s .nobrighter
  4074.  tst.w MAPBRIGHT
  4075.  beq.s .nobrighter
  4076.  
  4077.  sub.w #1,MAPBRIGHT
  4078.  
  4079. .nobrighter:
  4080.  
  4081.  tst.b $51(a5)
  4082.  beq.s .nodimmer
  4083.  cmp.w #7,MAPBRIGHT
  4084.  bge.s .nodimmer
  4085.  
  4086.  add.w #1,MAPBRIGHT
  4087.  
  4088. .nodimmer:
  4089.  
  4090.  move.l #Rotated,a1
  4091.  move.l #COMPACTMAP,a2
  4092.  move.l #BIGMAP-40,a3
  4093.  
  4094. preshow:
  4095.  add.w #40,a3
  4096.  
  4097. SHOWMAP:
  4098.  move.l (a2)+,d5
  4099.  move.l a2,d7
  4100.  cmp.l LASTZONE,d7
  4101.  bgt shownmap
  4102.  
  4103.  tst.l d5
  4104.  beq.s preshow
  4105.  
  4106.  move.w #9,d7
  4107. wallsofzone
  4108.  
  4109.  asr.l #1,d5
  4110.  bcs.s WALLSEEN
  4111.  
  4112.  asr.l #1,d5
  4113.  bcs.s WALLMAPPED
  4114.  
  4115.  asr.l #1,d5
  4116.  addq #4,a3
  4117.  bra.s DECIDEDWALL
  4118.  
  4119. WALLMAPPED:
  4120.  move.w #$b00,d4
  4121.  asr.l #1,d5
  4122.  bcc.s .notadoor
  4123.  move.w #$e00,d4
  4124. .notadoor
  4125.  
  4126.  st TRRANS
  4127.  
  4128.  bra.s DECIDEDCOLOUR
  4129.  
  4130. WALLSEEN:
  4131.  
  4132.  clr.b TRRANS
  4133.  
  4134.  move.w #255,d4
  4135.  asr.l #2,d5
  4136.  bcc.s .notadoor
  4137.  move.w #254,d4
  4138. .notadoor
  4139. DECIDEDCOLOUR:
  4140.  move.w (a3)+,d6
  4141.  move.l (a1,d6.w*8),d0
  4142.  asr.l #7,d0
  4143.  movem.l d7/d5,-(a7)
  4144.  move.w mapxoff,d5
  4145.  ext.l d5
  4146.  add.l d5,d0
  4147.  move.l 4(a1,d6.w*8),d1
  4148.  move.w mapzoff,d5
  4149.  ext.l d5
  4150.  add.l d5,d1
  4151.  move.w (a3)+,d6
  4152.  move.l (a1,d6.w*8),d2
  4153.  move.w mapxoff,d5
  4154.  ext.l d5
  4155.  asr.l #7,d2
  4156.  add.l d5,d2
  4157.  move.l 4(a1,d6.w*8),d3
  4158.  move.w mapzoff,d5
  4159.  ext.l d5
  4160.  add.l d5,d3
  4161.  
  4162.  neg.l d1
  4163.  neg.l d3
  4164.  
  4165.  bsr CLIPANDDRAW
  4166.  movem.l (a7)+,d7/d5
  4167.  
  4168. DECIDEDWALL:
  4169.  
  4170.  dbra d7,wallsofzone
  4171.  bra SHOWMAP
  4172.  
  4173. shownmap:
  4174.  
  4175.  clr.b TRRANS
  4176.  
  4177.  move.w mapxoff,d0
  4178.  ext.l d0
  4179.  move.w mapzoff,d1
  4180.  ext.l d1
  4181.  neg.l d1
  4182.  move.l d0,d2
  4183.  move.l d1,d3
  4184.  sub.l #128,d1
  4185.  add.l #128,d3
  4186.  move.w #250,d4
  4187.  bsr CLIPANDDRAW
  4188.  
  4189.  move.w mapxoff,d0
  4190.  ext.l d0
  4191.  move.w mapzoff,d1
  4192.  ext.l d1
  4193.  neg.l d1
  4194.  move.l d0,d2
  4195.  move.l d1,d3
  4196.  sub.l #128,d1
  4197.  sub.l #32,d3
  4198.  sub.l #64,d2
  4199.  move.w #250,d4
  4200.  bsr CLIPANDDRAW
  4201.  
  4202.  move.w mapxoff,d0
  4203.  ext.l d0
  4204.  move.w mapzoff,d1
  4205.  ext.l d1
  4206.  neg.l d1
  4207.  move.l d0,d2
  4208.  move.l d1,d3
  4209.  sub.l #128,d1
  4210.  sub.l #32,d3
  4211.  add.l #64,d2
  4212.  move.w #250,d4
  4213.  bsr CLIPANDDRAW
  4214.  rts
  4215.  
  4216.  
  4217. CLIPANDDRAW:
  4218.  
  4219.  tst.b FULLSCR
  4220.  beq.s .nodov
  4221.  
  4222.  add.l d0,d0
  4223.  add.l d2,d2
  4224.  ext.l d0
  4225.  ext.l d2
  4226.  divs.l #3,d0
  4227.  divs.l #3,d2
  4228.  
  4229. .nodov:
  4230.  
  4231.  move.w MAPBRIGHT,d5
  4232.  
  4233.  asr.l d5,d0
  4234.  asr.l d5,d1
  4235.  asr.l d5,d2
  4236.  asr.l d5,d3
  4237.  
  4238. NOSCALING:
  4239.  add.l #96,d0
  4240.  bge p1xpos
  4241.  
  4242.  add.l #96,d2
  4243.  blt OFFSCREEN
  4244.  
  4245. x1nx2p:
  4246.  
  4247.  move.l d3,d5
  4248.  sub.l d1,d5
  4249.  move.l d2,d6
  4250.  sub.l d0,d6
  4251.  beq OFFSCREEN
  4252.  
  4253.  muls.l d0,d5
  4254.  divs.l d6,d5
  4255.  sub.l d5,d1
  4256.  move.l #0,d0
  4257.  
  4258.  bra doneleftclip
  4259.  
  4260. p1xpos:
  4261.  
  4262.  add.l #96,d2
  4263.  bge doneleftclip
  4264.  
  4265.  move.l d1,d5
  4266.  sub.l d3,d5
  4267.  move.l d0,d6
  4268.  sub.l d2,d6
  4269.  beq OFFSCREEN
  4270.  
  4271.  muls.l d2,d5
  4272.  divs.l d6,d5
  4273.  sub.l d5,d3
  4274.  move.l #0,d2
  4275.  
  4276. doneleftclip:
  4277.  
  4278.  cmp.l #191,d0
  4279.  ble p1xneg
  4280.  
  4281.  cmp.l #191,d2
  4282.  bgt OFFSCREEN
  4283.  
  4284.  move.l d0,d6
  4285.  sub.l d2,d6
  4286.  beq OFFSCREEN
  4287.  sub.l #191,d0
  4288.  move.l d3,d5
  4289.  sub.l d1,d5
  4290.  
  4291.  muls.l d5,d0
  4292.  divs.l d6,d0
  4293.  add.l d0,d1
  4294.  move.l #191,d0
  4295.  
  4296.  bra donerightclip
  4297.  
  4298. p1xneg:
  4299.  
  4300.  cmp.l #191,d2
  4301.  ble donerightclip
  4302.  
  4303.  move.l d2,d6
  4304.  sub.l d0,d6
  4305.  beq OFFSCREEN
  4306.  sub.l #191,d2
  4307.  move.l d1,d5
  4308.  sub.l d3,d5
  4309.  
  4310.  muls.l d5,d2
  4311.  divs.l d6,d2
  4312.  add.l d2,d3
  4313.  move.l #191,d2
  4314.  
  4315. donerightclip:
  4316.  
  4317. *********************************
  4318.  
  4319.  add.l #80,d1
  4320.  bge p1ypos
  4321.  
  4322.  add.l #80,d3
  4323.  blt OFFSCREEN
  4324.  
  4325.  move.l d2,d5
  4326.  sub.l d0,d5
  4327.  move.l d3,d6
  4328.  sub.l d1,d6
  4329.  beq OFFSCREEN
  4330.  
  4331.  muls.l d1,d5
  4332.  divs.l d6,d5
  4333.  sub.l d5,d0
  4334.  move.l #0,d1
  4335.  
  4336.  bra donetopclip
  4337.  
  4338. p1ypos:
  4339.  
  4340.  add.l #80,d3
  4341.  bge donetopclip
  4342.  
  4343.  move.l d0,d5
  4344.  sub.l d2,d5
  4345.  move.l d1,d6
  4346.  sub.l d3,d6
  4347.  beq OFFSCREEN
  4348.  
  4349.  muls.l d3,d5
  4350.  divs.l d6,d5
  4351.  sub.l d5,d2
  4352.  move.l #0,d3
  4353.  
  4354. donetopclip:
  4355.  
  4356.  cmp.l #159,d1
  4357.  ble p1yneg
  4358.  
  4359.  cmp.l #159,d3
  4360.  bgt OFFSCREEN
  4361.  
  4362.  move.l d1,d6
  4363.  sub.l d3,d6
  4364.  beq OFFSCREEN
  4365.  sub.l #159,d1
  4366.  move.l d2,d5
  4367.  sub.l d0,d5
  4368.  
  4369.  muls.l d5,d1
  4370.  divs.l d6,d1
  4371.  add.l d1,d0
  4372.  move.l #159,d1
  4373.  
  4374.  bra donebotclip
  4375.  
  4376. p1yneg:
  4377.  
  4378.  cmp.l #159,d3
  4379.  ble donebotclip
  4380.  
  4381.  move.l d3,d6
  4382.  sub.l d1,d6
  4383.  beq OFFSCREEN
  4384.  sub.l #159,d3
  4385.  move.l d0,d5
  4386.  sub.l d2,d5
  4387.  
  4388.  muls.l d5,d3
  4389.  divs.l d6,d3
  4390.  add.l d3,d2
  4391.  move.l #159,d3
  4392.  
  4393. donebotclip:
  4394.  
  4395.  tst.b TRRANS
  4396.  bne DRAWAtransLINE
  4397.  bra DRAWAMAPLINE
  4398.  
  4399. OFFSCREEN:
  4400. NOLINEtrans:
  4401.  rts
  4402.  
  4403. MAPBRIGHT:
  4404.  dc.w 3
  4405. mapxoff: dc.w 0
  4406. mapzoff: dc.w 0
  4407.  
  4408. DRAWAtransLINE:
  4409.  
  4410.  move.l FASTBUFFER,a0    ; screen to render to.
  4411.  
  4412.  tst.b FULLSCR
  4413.  beq.s .nooffset
  4414.   
  4415.  add.l #(320*40)+(48*2),a0
  4416.   
  4417. .nooffset:
  4418.  
  4419.  cmp.w d1,d3
  4420.  bgt.s .okdown
  4421.  bne.s .aline
  4422.  cmp.w d0,d2
  4423.  beq.s NOLINEtrans 
  4424. .aline
  4425.  exg d0,d2
  4426.  exg d1,d3
  4427. .okdown
  4428.  
  4429.  move.w d1,d5
  4430.  muls #320,d5
  4431.  add.l d5,a0
  4432.  lea (a0,d0.w*2),a0
  4433.  
  4434.  sub.w d1,d3
  4435.  
  4436.  sub.w d0,d2
  4437.  bge.s downrighttrans
  4438.  
  4439. downlefttrans:
  4440.  neg.w d2
  4441.  cmp.w d2,d3
  4442.  bgt.s downmorelefttrans
  4443.  
  4444. downleftmoretrans:
  4445.  move.w #320,d6
  4446.  move.w d2,d0
  4447.  move.w d2,d7
  4448.  
  4449. .linelop:
  4450.  move.b (a0),d4
  4451.  move.b (a4,d4.w*2),(a0)
  4452.  subq #1,a0
  4453.  sub.w d3,d0
  4454.  bgt.s .noextra
  4455.  add.w d2,d0
  4456.  add.w d6,a0
  4457. .noextra:
  4458.  dbra d7,.linelop
  4459.  rts
  4460.  
  4461. downmorelefttrans:
  4462.  move.w #320,d6
  4463.  move.w d3,d0
  4464.  move.w d3,d7
  4465.  
  4466. .linelop:
  4467.  move.b (a0),d4
  4468.  move.b (a4,d4.w*2),(a0)
  4469.  add.w d6,a0
  4470.  sub.w d2,d0
  4471.  bgt.s .noextra
  4472.  add.w d3,d0
  4473.  subq #1,a0
  4474. .noextra:
  4475.  dbra d7,.linelop
  4476.  
  4477.  rts
  4478.  
  4479. downrighttrans:
  4480.  
  4481.  cmp.w d2,d3
  4482.  bgt.s downmorerighttrans
  4483.  
  4484. downrightmoretrans:
  4485.  move.w #320,d6
  4486.  move.w d2,d0
  4487.  move.w d2,d7
  4488.  
  4489. .linelop:
  4490.  move.b (a0),d4
  4491.  move.b (a4,d4.w*2),(a0)+
  4492.  sub.w d3,d0
  4493.  bgt.s .noextra
  4494.  add.w d2,d0
  4495.  add.w d6,a0
  4496. .noextra:
  4497.  dbra d7,.linelop
  4498.  
  4499.  rts
  4500.  
  4501. downmorerighttrans:
  4502.  move.w #320,d6
  4503.  move.w d3,d0
  4504.  move.w d3,d7
  4505.  
  4506. .linelop:
  4507.  move.b (a0),d4
  4508.  move.b (a4,d4.w*2),(a0)
  4509.  add.w d6,a0
  4510.  sub.w d2,d0
  4511.  bgt.s .noextra
  4512.  add.w d3,d0
  4513.  addq #1,a0
  4514. .noextra:
  4515.  dbra d7,.linelop
  4516.  
  4517.  rts
  4518.  
  4519. NOLINE:
  4520.  rts
  4521.  
  4522. DRAWAMAPLINE:
  4523.  
  4524.  
  4525.  move.b DOUBLEHEIGHT,d5
  4526.  or.b DOUBLEWIDTH,d5
  4527.  tst.b d5
  4528.  bne DOITFAT
  4529.  
  4530.  move.l FASTBUFFER,a0    ; screen to render to.
  4531.  cmp.w d1,d3
  4532.  bgt.s .okdown
  4533.  bne.s .aline
  4534.  cmp.w d0,d2
  4535.  beq.s NOLINE 
  4536. .aline
  4537.  exg d0,d2
  4538.  exg d1,d3
  4539. .okdown
  4540.  
  4541.  move.w d1,d5
  4542.  muls #320,d5
  4543.  add.l d5,a0
  4544.  lea (a0,d0.w),a0
  4545.  
  4546.  sub.w d1,d3
  4547.  
  4548.  sub.w d0,d2
  4549.  bge.s downright
  4550.  
  4551. downleft:
  4552.  neg.w d2
  4553.  cmp.w d2,d3
  4554.  bgt.s downmoreleft
  4555.  
  4556. downleftmore:
  4557.  move.w #320,d6
  4558.  move.w d2,d0
  4559.  move.w d2,d7
  4560.  addq #1,a0
  4561.  
  4562. .linelop
  4563.  move.b d4,-(a0)
  4564.  sub.w d3,d0
  4565.  bgt.s .noextra
  4566.  add.w d2,d0
  4567.  add.w d6,a0
  4568. .noextra:
  4569.  dbra d7,.linelop
  4570.  rts
  4571.  
  4572. downmoreleft:
  4573.  move.w #320,d6
  4574.  move.w d3,d0
  4575.  move.w d3,d7
  4576.  
  4577. .linelop:
  4578.  move.b d4,(a0)
  4579.  add.w d6,a0
  4580.  sub.w d2,d0
  4581.  bgt.s .noextra
  4582.  add.w d3,d0
  4583.  subq #1,a0
  4584. .noextra:
  4585.  dbra d7,.linelop
  4586.  
  4587.  rts
  4588.  
  4589. downright:
  4590.  
  4591.  cmp.w d2,d3
  4592.  bgt.s downmoreright
  4593.  
  4594. downrightmore:
  4595.  move.w #320,d6
  4596.  move.w d2,d0
  4597.  move.w d2,d7
  4598.  
  4599. .linelop:
  4600.  move.b d4,(a0)+
  4601.  sub.w d3,d0
  4602.  bgt.s .noextra
  4603.  add.w d2,d0
  4604.  add.w d6,a0
  4605. .noextra:
  4606.  dbra d7,.linelop
  4607.  
  4608.  rts
  4609.  
  4610. downmoreright:
  4611.  move.w #320,d6
  4612.  move.w d3,d0
  4613.  move.w d3,d7
  4614.  
  4615. .linelop:
  4616.  move.b d4,(a0)
  4617.  add.w d6,a0
  4618.  sub.w d2,d0
  4619.  bgt.s .noextra
  4620.  add.w d3,d0
  4621.  addq #1,a0
  4622. .noextra:
  4623.  dbra d7,.linelop
  4624.  
  4625.  rts
  4626.  
  4627.  
  4628. DOITFAT:
  4629.  move.l FASTBUFFER,a0    ; screen to render to.
  4630.  cmp.w d1,d3
  4631.  bgt.s .okdown
  4632.  bne.s .aline
  4633.  cmp.w d0,d2
  4634.  beq NOLINE 
  4635. .aline
  4636.  exg d0,d2
  4637.  exg d1,d3
  4638. .okdown
  4639.  
  4640.  move.w d1,d5
  4641.  muls #320,d5
  4642.  add.l d5,a0
  4643.  lea (a0,d0.w),a0
  4644.  
  4645.  sub.w d1,d3
  4646.  
  4647.  sub.w d0,d2
  4648.  bge.s downrightFAT
  4649.  
  4650. downleftFAT:
  4651.  neg.w d2
  4652.  cmp.w d2,d3
  4653.  bgt.s downmoreleftFAT
  4654.  
  4655. downleftmoreFAT:
  4656.  move.w #320,d6
  4657.  move.w d2,d0
  4658.  move.w d2,d7
  4659.  addq #1,a0
  4660.  
  4661. .linelop
  4662.  move.b d4,319(a0)
  4663.  move.b d4,(a0)
  4664.  move.b d4,-(a0)
  4665.  sub.w d3,d0
  4666.  bgt.s .noextra
  4667.  add.w d2,d0
  4668.  add.w d6,a0
  4669. .noextra:
  4670.  dbra d7,.linelop
  4671.  rts
  4672.  
  4673. downmoreleftFAT:
  4674.  move.w #320,d6
  4675.  move.w d3,d0
  4676.  move.w d3,d7
  4677.  
  4678. .linelop:
  4679.  move.b d4,320(a0)
  4680.  move.b d4,1(a0)
  4681.  move.b d4,(a0)
  4682.  add.w d6,a0
  4683.  sub.w d2,d0
  4684.  bgt.s .noextra
  4685.  add.w d3,d0
  4686.  subq #1,a0
  4687. .noextra:
  4688.  dbra d7,.linelop
  4689.  
  4690.  rts
  4691.  
  4692. downrightFAT:
  4693.  
  4694.  cmp.w d2,d3
  4695.  bgt.s downmorerightFAT
  4696.  
  4697. downrightmoreFAT:
  4698.  move.w #320,d6
  4699.  move.w d2,d0
  4700.  move.w d2,d7
  4701.  
  4702. .linelop:
  4703.  move.b d4,320(a0)
  4704.  move.b d4,(a0)+
  4705.  move.b d4,(a0)
  4706.  sub.w d3,d0
  4707.  bgt.s .noextra
  4708.  add.w d2,d0
  4709.  add.w d6,a0
  4710. .noextra:
  4711.  dbra d7,.linelop
  4712.  
  4713.  rts
  4714.  
  4715. downmorerightFAT:
  4716.  move.w #320,d6
  4717.  move.w d3,d0
  4718.  move.w d3,d7
  4719.  
  4720. .linelop:
  4721.  move.b d4,320(a0)
  4722.  move.b d4,1(a0)
  4723.  move.b d4,(a0)
  4724.  add.w d6,a0
  4725.  sub.w d2,d0
  4726.  bgt.s .noextra
  4727.  add.w d3,d0
  4728.  addq #1,a0
  4729. .noextra:
  4730.  dbra d7,.linelop
  4731.  
  4732.  rts
  4733.  
  4734.  
  4735. SAVETHESCREEN:
  4736.  
  4737.  move.l old,$dff080
  4738.  move.w #$8020,$dff000+intena
  4739.  
  4740.  move.l _IntuitionBase,a6
  4741.  jsr _LVORethinkDisplay(a6)
  4742.  
  4743.  move.l doslib,a6
  4744.  move.l #SAVENAME,d1
  4745.  move.l #1006,d2
  4746.  jsr -30(a6)
  4747.  move.l d0,handle
  4748.  
  4749.  move.l doslib,a6
  4750.  move.l SCRNDRAWPT,d2
  4751.  move.l handle,d1
  4752.  move.l #10240*8,d3
  4753.  jsr _LVOWrite(a6)
  4754.  
  4755.  move.l doslib,a6
  4756.  move.l handle,d1
  4757.  jsr -36(a6)
  4758.  
  4759.  move.l doslib,a6
  4760.  move.l #200,d1
  4761.  jsr -198(a6) 
  4762.  
  4763.  move.w #$0020,$dff000+intena
  4764.  move.l #bigfield,$dff080
  4765.  
  4766.  add.b #1,SAVELETTER
  4767.  
  4768.  rts
  4769.  
  4770. SAVENAME: dc.b 'work:rawscrn'
  4771. SAVELETTER: dc.b 'd',0
  4772.  
  4773.  even
  4774.  
  4775.  include "ab3:source_4000/CHUNKY.s"
  4776.  
  4777.  
  4778. MASTERQUITTING: dc.b 0
  4779. SLAVEQUITTING: dc.b 0
  4780. MASTERPAUSE: dc.b 0
  4781. SLAVEPAUSE: dc.b 0
  4782.  
  4783. PAUSEOPTS:
  4784.  include "ab3:source_4000/pauseopts"
  4785.  
  4786. ENDZONE: dc.w 0
  4787.  
  4788. ENDZONES:
  4789. ; LEVEL 1
  4790.  dc.w -1
  4791. ; dc.w 55
  4792. ; LEVEL 2
  4793.  dc.w 149
  4794. ; LEVEL 3
  4795.  dc.w 155
  4796. ; LEVEL 4
  4797.  dc.w 107
  4798. ; LEVEL 5
  4799.  dc.w 67
  4800. ; LEVEL 6
  4801.  dc.w 132
  4802. ; LEVEL 7
  4803.  dc.w 203
  4804. ; LEVEL 8
  4805.  dc.w 166
  4806. ; LEVEL 9
  4807.  dc.w 118
  4808. ; LEVEL 10
  4809.  dc.w 102
  4810. ; LEVEL 11
  4811.  dc.w 103
  4812. ; LEVEL 12
  4813.  dc.w 2
  4814. ; LEVEL 13
  4815.  dc.w 98
  4816. ; LEVEL 14
  4817.  dc.w 0
  4818. ; LEVEL 15
  4819.  dc.w 148
  4820. ; LEVEL 16
  4821.  dc.w 103
  4822.  
  4823. ***************************************************************************
  4824. ***************************************************************************
  4825. ****************** End of Main Loop here ********************************** 
  4826. ***************************************************************************
  4827. ***************************************************************************
  4828.  
  4829. putinsmallscr:
  4830.  
  4831.  rts
  4832.  
  4833.  move.l #$1fe0000,statskip
  4834.  move.l #$1fe0000,statskip+4
  4835.  
  4836.  move.l #healthpal,a5
  4837. ; move.l COPSCRN1,a0
  4838. ; move.l COPSCRN2,a2
  4839.  move.w #scrheight-1,d0
  4840.  move.l #0,d6
  4841.  move.w #0,d3
  4842.  move.w #$2bdf,startwait
  4843.  move.w #$2d01,endwait
  4844. .fillcop
  4845.  move.w #$180,d1
  4846.  
  4847.  move.l a0,a1
  4848.  move.l a2,a3
  4849.  move.w #$10c,(a1)+
  4850.  move.w #$10c,(a3)+
  4851.  move.w d3,(a1)+
  4852.  move.w d3,(a3)+
  4853.  eor.w #$8000,d3
  4854.  
  4855.  move.w #$106,(a1)+
  4856.  move.w #$106,(a3)+
  4857.  move.w #$2c42,d5
  4858.  or.w d3,d5
  4859.  and.w #$fffe,d5
  4860.  move.w d5,(a1)+
  4861.  move.w d5,(a3)+
  4862.  bsr do32
  4863.  
  4864.  move.w #$106,(a1)+
  4865.  move.w #$106,(a3)+
  4866.  move.w #$4c42,d5
  4867.  or.w d3,d5
  4868.  and.w #$fffe,d5
  4869.  move.w d5,(a1)+
  4870.  move.w d5,(a3)+
  4871.  bsr do32
  4872.  
  4873.  move.w #$106,(a1)+
  4874.  move.w #$106,(a3)+
  4875.  move.w #$6c42,d5
  4876.  or.w d3,d5
  4877.  and.w #$fffe,d5
  4878.  move.w d5,(a1)+
  4879.  move.w d5,(a3)+
  4880.  bsr do32
  4881.  
  4882.  
  4883.  move.l #$1060c42,(a1)+
  4884.  move.l #$1060c42,(a3)+
  4885.  move.w #$19e,(a1)+
  4886.  move.w (a5),(a1)+
  4887.  move.w #$19e,(a3)+
  4888.  move.w (a5)+,(a3)+
  4889.  
  4890. **********************************
  4891.  
  4892.  adda.w #104*4,a0
  4893.  adda.w #104*4,a2
  4894.  dbra d0,.fillcop
  4895.  
  4896.  move.w #$48,fetchstart
  4897.  move.w #$88,fetchstop
  4898.  move.w #$2cb1,winstart
  4899.  move.w #$2c91,winstop
  4900.  move.w #-24,modulo
  4901.  move.w #-24,modulo+4
  4902.  
  4903.  move.l #nullspr,d0
  4904.  move.w d0,s4l
  4905.  move.w d0,s5l
  4906.  move.w d0,s6l
  4907.  move.w d0,s7l
  4908.  swap d0
  4909.  move.w d0,s4h
  4910.  move.w d0,s5h
  4911.  move.w d0,s6h
  4912.  move.w d0,s7h 
  4913.  
  4914. ; move.l #borders,d0
  4915. ; move.w d0,s0l
  4916. ; swap d0
  4917. ; move.w d0,s0h
  4918. ; move.l #borders+2592,d0
  4919. ; move.w d0,s1l
  4920. ; swap d0
  4921. ; move.w d0,s1h
  4922. ; move.l #borders+2592*2,d0
  4923. ; move.w d0,s2l
  4924. ; swap d0
  4925. ; move.w d0,s2h
  4926. ; move.l #borders+2592*3,d0
  4927. ; move.w d0,s3l
  4928. ; swap d0
  4929. ; move.w d0,s3h
  4930.  
  4931.  
  4932.  move.l scrn,a0
  4933.  add.l #40,a0
  4934.  move.l scrn,a1
  4935.  add.l #160,a1
  4936.  move.l scrn,a2
  4937.  add.l #280,a2
  4938.  move.l #smallscrntab,a3
  4939.  move.w #191,d7    ; counter
  4940.  move.w #0,d1    ; xpos
  4941. .plotscrnloop:
  4942.  move.b (a3)+,d0
  4943.  move.w d1,d2
  4944.  asr.w #3,d2
  4945.  move.b d1,d3
  4946.  not.b d3
  4947.  bclr.b d3,-40(a0,d2.w)
  4948.  bclr.b d3,(a0,d2.w)
  4949.  bclr.b d3,40(a0,d2.w)
  4950.  bclr.b d3,-40(a1,d2.w)
  4951.  bclr.b d3,(a1,d2.w)
  4952.  bclr.b d3,40(a1,d2.w)
  4953.  bclr.b d3,-40(a2,d2.w)
  4954.  btst #0,d0
  4955.  beq.s .nobp1
  4956.  bset.b d3,-40(a0,d2.w)
  4957. .nobp1:
  4958.  btst #1,d0
  4959.  beq.s .nobp2
  4960.  bset.b d3,(a0,d2.w)
  4961. .nobp2:
  4962.  btst #2,d0
  4963.  beq.s .nobp3
  4964.  bset.b d3,40(a0,d2.w)
  4965. .nobp3:
  4966.  btst #3,d0
  4967.  beq.s .nobp4
  4968.  bset.b d3,-40(a1,d2.w)
  4969. .nobp4:
  4970.  btst #4,d0
  4971.  beq.s .nobp5
  4972.  bset.b d3,(a1,d2.w)
  4973. .nobp5:
  4974.  btst #5,d0
  4975.  beq.s .nobp6
  4976.  bset.b d3,40(a1,d2.w)
  4977. .nobp6:
  4978.  btst #6,d0
  4979.  beq.s .nobp7
  4980.  bset.b d3,-40(a2,d2.w)
  4981. .nobp7:
  4982.  
  4983.  addq #1,d1
  4984.  
  4985.  dbra d7,.plotscrnloop
  4986.  
  4987.  
  4988.  rts
  4989.  
  4990. putinlargescr:
  4991.  
  4992.  move.l #$1000000,statskip
  4993.  move.l #$fffffffe,statskip+4
  4994.  
  4995.  move.l #healthpal,a5
  4996. ; move.l COPSCRN1,a0
  4997. ; move.l COPSCRN2,a2
  4998.  move.w #scrheight-1,d0
  4999.  move.l #0,d6
  5000.  move.w #0,d3
  5001.  move.w #$29df,startwait
  5002.  move.w #$2b01,endwait
  5003. .fillcop
  5004.  move.w #$180,d1
  5005.  
  5006.  move.l a0,a1
  5007.  move.l a2,a3
  5008.  move.w #$10c,(a1)+
  5009.  move.w #$10c,(a3)+
  5010.  move.w d3,(a1)+
  5011.  move.w d3,(a3)+
  5012.  eor.w #$8000,d3
  5013.  
  5014.  move.w #$106,(a1)+
  5015.  move.w #$106,(a3)+
  5016.  move.w #$2c42,d5
  5017.  or.w d3,d5
  5018.  and.w #$fffe,d5
  5019.  move.w d5,(a1)+
  5020.  move.w d5,(a3)+
  5021.  bsr do32
  5022.  
  5023.  move.w #$106,(a1)+
  5024.  move.w #$106,(a3)+
  5025.  move.w #$4c42,d5
  5026.  or.w d3,d5
  5027.  and.w #$fffe,d5
  5028.  move.w d5,(a1)+
  5029.  move.w d5,(a3)+
  5030.  bsr do32
  5031.  
  5032.  move.w #$106,(a1)+
  5033.  move.w #$106,(a3)+
  5034.  move.w #$6c42,d5
  5035.  or.w d3,d5
  5036.  and.w #$fffe,d5
  5037.  move.w d5,(a1)+
  5038.  move.w d5,(a3)+
  5039.  bsr do32
  5040.  
  5041.  move.w startwait,(a1)+
  5042.  move.w #$fffe,(a1)+
  5043.  move.w endwait,(a1)+
  5044.  move.w #$ff00,(a1)+
  5045.  move.w startwait,(a3)+
  5046.  move.w #$fffe,(a3)+
  5047.  move.w endwait,(a3)+
  5048.  move.w #$ff00,(a3)+
  5049.  
  5050. ; move.l $1fe0000,(a1)+
  5051. ; move.l $1fe0000,(a3)+
  5052. ; move.l $1fe0000,(a1)+
  5053. ; move.l $1fe0000,(a3)+
  5054.  
  5055.  
  5056.  add.w #$300,startwait
  5057.  add.w #$300,endwait
  5058.  
  5059. ; move.l #$1060c42,(a1)+
  5060. ; move.l #$1060c42,(a3)+
  5061. ; move.w #$19e,(a1)+
  5062. ; move.w (a5),(a1)+
  5063. ; move.w #$19e,(a3)+
  5064. ; move.w (a5)+,(a3)+
  5065.  
  5066. **********************************
  5067.  
  5068.  adda.w #104*4,a0
  5069.  adda.w #104*4,a2
  5070.  dbra d0,.fillcop
  5071.  
  5072.  move.w #$38,fetchstart
  5073.  move.w #$b8,fetchstop
  5074.  move.w #$2c81,winstart
  5075.  move.w #$2cc1,winstop
  5076.  move.w #-40,modulo
  5077.  move.w #-40,modulo+4
  5078.  
  5079.  move.l #nullspr,d0
  5080.  move.w d0,s0l
  5081.  move.w d0,s1l
  5082.  move.w d0,s2l
  5083.  move.w d0,s3l
  5084.  move.w d0,s4l
  5085.  move.w d0,s5l
  5086.  move.w d0,s6l
  5087.  move.w d0,s7l
  5088.  swap d0
  5089.  move.w d0,s0h
  5090.  move.w d0,s1h
  5091.  move.w d0,s2h
  5092.  move.w d0,s3h
  5093.  move.w d0,s4h
  5094.  move.w d0,s5h
  5095.  move.w d0,s6h
  5096.  move.w d0,s7h 
  5097.  
  5098.  move.l scrn,a0
  5099.  move.l a0,a1
  5100.  move.l a0,a2
  5101.  add.l #40,a0
  5102.  add.l #160,a1
  5103.  add.l #280,a2
  5104.  move.l #scrntab,a3
  5105.  move.w #319,d7    ; counter
  5106.  move.w #0,d1    ; xpos
  5107. .plotscrnloop:
  5108.  move.b (a3)+,d0
  5109.  move.w d1,d2
  5110.  asr.w #3,d2
  5111.  move.b d1,d3
  5112.  not.b d3
  5113.  bclr.b d3,-40(a0,d2.w)
  5114.  bclr.b d3,(a0,d2.w)
  5115.  bclr.b d3,40(a0,d2.w)
  5116.  bclr.b d3,-40(a1,d2.w)
  5117.  bclr.b d3,(a1,d2.w)
  5118.  bclr.b d3,40(a1,d2.w)
  5119.  bclr.b d3,-40(a2,d2.w)
  5120.  btst #0,d0
  5121.  beq.s .nobp1
  5122.  bset.b d3,-40(a0,d2.w)
  5123. .nobp1:
  5124.  btst #1,d0
  5125.  beq.s .nobp2
  5126.  bset.b d3,(a0,d2.w)
  5127. .nobp2:
  5128.  btst #2,d0
  5129.  beq.s .nobp3
  5130.  bset.b d3,40(a0,d2.w)
  5131. .nobp3:
  5132.  btst #3,d0
  5133.  beq.s .nobp4
  5134.  bset.b d3,-40(a1,d2.w)
  5135. .nobp4:
  5136.  btst #4,d0
  5137.  beq.s .nobp5
  5138.  bset.b d3,(a1,d2.w)
  5139. .nobp5:
  5140.  btst #5,d0
  5141.  beq.s .nobp6
  5142.  bset.b d3,40(a1,d2.w)
  5143. .nobp6:
  5144.  btst #6,d0
  5145.  beq.s .nobp7
  5146.  bset.b d3,-40(a2,d2.w)
  5147. .nobp7:
  5148.  
  5149.  addq #1,d1
  5150.  
  5151.  dbra d7,.plotscrnloop
  5152.  
  5153.  rts
  5154.  
  5155. CLEARKEYBOARD:
  5156.  move.l #KeyMap,a5
  5157.  moveq #0,d0
  5158.  move.w #15,d1
  5159. clrloo:
  5160.  move.l d0,(a5)+
  5161.  move.l d0,(a5)+
  5162.  move.l d0,(a5)+
  5163.  move.l d0,(a5)+
  5164.  dbra d1,clrloo
  5165.  rts
  5166.  
  5167. READCONTROLS: dc.w 0
  5168.  
  5169. tstststst: dc.w 0
  5170.  
  5171. BollocksRoom:
  5172.  dc.w -1
  5173.  ds.l 50
  5174.  
  5175. GUNYOFFS:
  5176.  dc.w 20
  5177.  dc.w 20
  5178.  dc.w 0
  5179.  dc.w 20
  5180.  dc.w 20
  5181.  dc.w 0
  5182.  dc.w 0
  5183.  dc.w 20
  5184.  
  5185. PLR1_BOBBLEY: dc.l 0
  5186. PLR2_BOBBLEY: dc.l 0
  5187.  
  5188. IVEWONTEXT:
  5189. ;      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  5190.  dc.b 'Player 1 Bites the dust!                '
  5191.  dc.b '                                        '
  5192.  dc.b 'Player 1 Bites the dust!                '
  5193.  dc.b '                                        '
  5194.  
  5195.  dc.b 'Player 2 has kicked the bucket!         '
  5196.  dc.b '                                        '
  5197.  dc.b 'Player 2 has kicked the bucket!         '
  5198.  dc.b '                                        '
  5199.  
  5200.  
  5201.  dc.b 'Player 3 is history!                    '
  5202.  dc.b '                                        '
  5203.  dc.b 'Player 3 is history!                    '
  5204.  dc.b '                                        '
  5205.  
  5206.  
  5207.  dc.b 'Enemy Player Vanquished!                '
  5208.  dc.b '                                        '
  5209.  dc.b 'Enemy Player Vanquished!                '
  5210.  dc.b '                                        '
  5211.  
  5212.  dc.b 'Oooh, that one must have hurt!          '
  5213.  dc.b '                                        '
  5214.  dc.b 'Oooh, that one must have hurt!          '
  5215.  dc.b '                                        '
  5216.  
  5217.  dc.b 'Opponent IS toast!                      '
  5218.  dc.b '                                        '
  5219.  dc.b 'Opponent IS toast!                      '
  5220.  dc.b '                                        '
  5221.  
  5222.  dc.b 'Does it hurt? DOES it? DOES IT?!?       '
  5223.  dc.b '                                        '
  5224.  dc.b 'Does it hurt? DOES it? DOES IT?!?       '
  5225.  dc.b '                                        '
  5226.  
  5227.  dc.b "Gosh, I",39,"m dreadfully sorry, old chap; didn't see you there!                     "
  5228.  dc.b "Gosh, I",39,"m dreadfully sorry, old chap; didn't see you there!                     "
  5229.  
  5230.  dc.b 'Now go away before I taunt you a second time.                                   '
  5231.  dc.b 'Now go away before I taunt you a second time.                                   '
  5232.  
  5233.  dc.b 'Eh, sorry about that there mate, didn',39,'t know it was loaded, know worra mean?    '
  5234.  dc.b 'Eh, sorry about that there mate, didn',39,'t know it was loaded, know worra mean?    '
  5235.  
  5236.  dc.b 'Stand and deliver, your money or...  oh. Never mind.                            ' 
  5237.  dc.b 'Stand and deliver, your money or...  oh. Never mind.                            '
  5238.  
  5239.  dc.b 'Thank you for your kind interest, I look forward to your custom in future lives.' 
  5240.  dc.b 'Thank you for your kind interest, I look forward to your custom in future lives.' 
  5241.  
  5242.  
  5243. USEPLR1:
  5244.  
  5245. ***********************************
  5246.  
  5247.  move.l PLR1_Obj,a0 
  5248.  move.b #4,16(a0)
  5249.  move.l ObjectPoints,a1
  5250.  move.l #ObjRotated,a2
  5251.  move.w (a0),d0
  5252.  move.l PLR1_xoff,(a1,d0.w*8)
  5253.  move.l PLR1_zoff,4(a1,d0.w*8)
  5254.  move.l PLR1_Roompt,a1
  5255.  
  5256.  moveq #0,d2
  5257.  move.b damagetaken(a0),d2
  5258.  beq .notbeenshot
  5259.  
  5260.  moveq #0,d4
  5261.  move.w ImpactX(a0),d3
  5262.  beq.s .notwist
  5263.  move.w d2,d4
  5264. .notwist:
  5265.  add.w d3,PLR1s_xspdval
  5266.  move.w ImpactZ(a0),d3
  5267.  beq.s .notwist2
  5268.  move.w d2,d4
  5269. .notwist2:
  5270.  add.w d3,PLR1s_zspdval
  5271.  move.w ImpactY(a0),d3
  5272.  ext.l d3
  5273.  asl.l #8,d3
  5274.  add.l d3,PLR1s_yvel
  5275.  
  5276.  move.w #0,ImpactX(a0)
  5277.  move.w #0,ImpactY(a0)
  5278.  move.w #0,ImpactZ(a0)
  5279.  
  5280.  jsr GetRand
  5281.  muls d4,d0
  5282.  asr.l #8,d0
  5283.  asr.l #4,d0
  5284.  add.w d0,PLR1s_angspd
  5285.  
  5286.  move.l #7*2116,hitcol
  5287.  sub.w d2,PLAYERONEHEALTH
  5288.  movem.l d0-d7/a0-a6,-(a7)
  5289.  move.w #$fffa,IDNUM
  5290.  move.w #19,Samplenum
  5291.  clr.b notifplaying
  5292.  move.w #0,Noisex
  5293.  move.w #0,Noisez
  5294.  move.w #60,Noisevol
  5295.  jsr MakeSomeNoise
  5296.  
  5297.  movem.l (a7)+,d0-d7/a0-a6
  5298.  
  5299. .notbeenshot
  5300.  move.b #0,damagetaken(a0)
  5301.  move.b #10,numlives(a0)
  5302.  
  5303.  move.w p1_angpos,Facing(a0)
  5304.  move.b PLR1_StoodInTop,ObjInTop(a0)
  5305.  
  5306.  move.w (a1),12(a0)
  5307.  move.w (a1),d2
  5308.  move.l #ZoneBrightTable,a1
  5309.  move.l (a1,d2.w*4),d2
  5310.  tst.b PLR1_StoodInTop
  5311.  bne.s .okinbott
  5312.  swap d2
  5313. .okinbott:
  5314.  
  5315.  move.w d2,2(a0)
  5316.  
  5317.  
  5318.  move.l p1_yoff,d0
  5319.  move.l p1_height,d1
  5320.  asr.l #1,d1
  5321.  add.l d1,d0
  5322.  asr.l #7,d0
  5323.  move.w d0,4(a0)
  5324.  
  5325.  tst.w PLAYERONEHEALTH
  5326.  bgt.s .okh1
  5327.  move.w #-1,12(a0)
  5328. .okh1:
  5329.  
  5330.  
  5331. ***********************************
  5332.  
  5333.  move.l PLR2_Obj,a0 
  5334.  move.b #5,16(a0)
  5335.  
  5336.  move.w p2_angpos,d0
  5337.  and.w #8190,d0
  5338.  move.w d0,Facing(a0)
  5339. ; 
  5340. ; jsr ViewpointToDraw
  5341. ; asl.w #2,d0
  5342. ; moveq #0,d1
  5343. ; move.b p2_bobble,d1
  5344. ; not.b d1
  5345. ; lsr.b #3,d1
  5346. ; and.b #$3,d1
  5347. ; add.w d1,d0
  5348. ; move.w d0,10(a0)
  5349. ; move.w #10,8(a0)
  5350. ; 
  5351.  
  5352.  move.l ObjectPoints,a1
  5353.  move.l #ObjRotated,a2
  5354.  move.w (a0),d0
  5355.  move.l PLR2_xoff,(a1,d0.w*8)
  5356.  move.l PLR2_zoff,4(a1,d0.w*8)
  5357.  move.l PLR2_Roompt,a1
  5358.  
  5359.  moveq #0,d2
  5360.  move.b damagetaken(a0),d2
  5361.  beq .notbeenshot2
  5362.  move.w ImpactX(a0),d3
  5363.  add.w d3,PLR2s_xspdval
  5364.  move.w ImpactZ(a0),d3
  5365.  add.w d3,PLR2s_zspdval
  5366.  move.w ImpactY(a0),d3
  5367.  ext.l d3
  5368.  asl.l #8,d3
  5369.  add.l d3,PLR2s_yvel
  5370.  
  5371.  move.w #0,ImpactX(a0)
  5372.  move.w #0,ImpactY(a0)
  5373.  move.w #0,ImpactZ(a0)
  5374.  
  5375.  sub.w d2,PLAYERTWOHEALTH
  5376.  
  5377.  
  5378. .notbeenshot2
  5379.  move.b #0,damagetaken(a0)
  5380.  move.b #10,numlives(a0)
  5381.  
  5382.  move.b PLR2_StoodInTop,ObjInTop(a0)
  5383.  
  5384.  move.w (a1),12(a0)
  5385.  move.w (a1),d2
  5386.  move.l #ZoneBrightTable,a1
  5387.  move.l (a1,d2.w*4),d2
  5388.  tst.b PLR2_StoodInTop
  5389.  bne.s .okinbott2
  5390.  swap d2
  5391. .okinbott2:
  5392.  
  5393.  move.w d2,2(a0)
  5394.  
  5395.  move.l p2_yoff,d0
  5396.  move.l p2_height,d1
  5397.  asr.l #1,d1
  5398.  add.l d1,d0
  5399.  asr.l #7,d0
  5400.  move.w d0,4(a0)
  5401.  
  5402.  jsr ViewpointToDraw
  5403.  add.l d0,d0
  5404.  
  5405.  move.l LINKFILE,a6
  5406.  add.l #PLR2ALIEN,a6
  5407.  move.w (a6),d7
  5408.  move.w d7,d1
  5409.  
  5410.  move.l LINKFILE,a6
  5411.  add.l #AlienStats,a6
  5412.  muls #AlienStatLen,d1
  5413.  add.l d1,a6
  5414.  move.b A_GFXType+1(a6),VECOBJ
  5415.  cmp.w #1,A_GFXType(a6)
  5416.  bne.s .NOSIDES2
  5417.  
  5418.  moveq #0,d0
  5419.  
  5420. .NOSIDES2:
  5421.  
  5422.  move.l LINKFILE,a6
  5423.  
  5424.  add.l #AlienAnimData,a6
  5425.  
  5426.  move.w d7,d1
  5427.  muls #A_AnimLen,d1
  5428.  add.l d1,a6
  5429.  
  5430. ; move.l ANIMPOINTER,a6
  5431.  
  5432.  muls #A_OptLen,d0
  5433.  add.w d0,a6
  5434.  
  5435.  move.w SecTimer(a0),d1
  5436.  move.w d1,d2
  5437.  muls #A_FrameLen,d1
  5438.  
  5439.  addq #1,d2
  5440.  
  5441.  move.w d2,d3
  5442.  muls #A_FrameLen,d3
  5443.  tst.b (a6,d3.w)
  5444.  bge.s .noendanim
  5445.  move.w #0,d2
  5446. .noendanim
  5447.  move.w d2,SecTimer(a0)
  5448.  
  5449.  move.w d2,d1
  5450.  
  5451.  muls #A_FrameLen,d1
  5452.  
  5453.  move.l #0,8(a0)
  5454.  move.b (a6,d1.w),9(a0)
  5455.  move.b 1(a6,d1.w),d0
  5456.  ext.w d0
  5457.  bgt.s .noflip
  5458.  move.b #128,10(a0)
  5459.  neg.w d0
  5460. .noflip:
  5461.  sub.w #1,d0
  5462.  move.b d0,11(a0)
  5463.  
  5464.  move.w #-1,6(a0)
  5465.  cmp.b #1,VECOBJ
  5466.  beq.s .nosize
  5467.  bgt.s .setlight
  5468.  move.w 2(a6,d1.w),6(a0)
  5469.  bra.s .ddone
  5470.  
  5471. .nosize
  5472.  
  5473. ; move.l #$00090001,8(a0)
  5474.  
  5475.  bra.s .ddone
  5476.  
  5477. .setlight:
  5478.  move.w 2(a6,d1.w),6(a0)
  5479.  
  5480.  move.b VECOBJ,d1
  5481.  or.b d1,10(a0)
  5482.  
  5483. .ddone:
  5484.  
  5485.  
  5486.  tst.w PLAYERTWOHEALTH
  5487.  bgt.s .okh
  5488.  move.w #-1,12(a0)
  5489. .okh:
  5490.  
  5491.  
  5492. **********************************
  5493.  
  5494.  
  5495.  move.l PLR3_Obj,a0 
  5496.  move.b #6,16(a0)
  5497.  
  5498.  move.w p3_angpos,d0
  5499.  and.w #8190,d0
  5500.  move.w d0,Facing(a0)
  5501. ; 
  5502. ; jsr ViewpointToDraw
  5503. ; asl.w #2,d0
  5504. ; moveq #0,d1
  5505. ; move.b p2_bobble,d1
  5506. ; not.b d1
  5507. ; lsr.b #3,d1
  5508. ; and.b #$3,d1
  5509. ; add.w d1,d0
  5510. ; move.w d0,10(a0)
  5511. ; move.w #10,8(a0)
  5512. ; 
  5513.  
  5514.  move.l ObjectPoints,a1
  5515.  move.l #ObjRotated,a2
  5516.  move.w (a0),d0
  5517.  move.l PLR3_xoff,(a1,d0.w*8)
  5518.  move.l PLR3_zoff,4(a1,d0.w*8)
  5519.  move.l PLR3_Roompt,a1
  5520.  
  5521.  moveq #0,d2
  5522.  move.b damagetaken(a0),d2
  5523.  beq .notbeenshot3
  5524.  move.w ImpactX(a0),d3
  5525.  add.w d3,PLR3s_xspdval
  5526.  move.w ImpactZ(a0),d3
  5527.  add.w d3,PLR3s_zspdval
  5528.  move.w ImpactY(a0),d3
  5529.  ext.l d3
  5530.  asl.l #8,d3
  5531.  add.l d3,PLR3s_yvel
  5532.  
  5533.  move.w #0,ImpactX(a0)
  5534.  move.w #0,ImpactY(a0)
  5535.  move.w #0,ImpactZ(a0)
  5536.  
  5537.  sub.w d2,PLAYERTHREEHEALTH
  5538.  
  5539.  
  5540. .notbeenshot3
  5541.  move.b #0,damagetaken(a0)
  5542.  move.b #10,numlives(a0)
  5543.  
  5544.  move.b PLR3_StoodInTop,ObjInTop(a0)
  5545.  
  5546.  move.w (a1),12(a0)
  5547.  move.w (a1),d2
  5548.  move.l #ZoneBrightTable,a1
  5549.  move.l (a1,d2.w*4),d2
  5550.  tst.b PLR3_StoodInTop
  5551.  bne.s .okinbott3
  5552.  swap d2
  5553. .okinbott3:
  5554.  
  5555.  move.w d2,2(a0)
  5556.  
  5557.  move.l p3_yoff,d0
  5558.  move.l p3_height,d1
  5559.  asr.l #1,d1
  5560.  add.l d1,d0
  5561.  asr.l #7,d0
  5562.  move.w d0,4(a0)
  5563.  
  5564.  jsr ViewpointToDraw
  5565.  add.l d0,d0
  5566.  
  5567.  move.l LINKFILE,a6
  5568.  add.l #PLR1ALIEN,a6
  5569.  move.w (a6),d7
  5570.  move.w d7,d1
  5571.  
  5572.  move.l LINKFILE,a6
  5573.  add.l #AlienStats,a6
  5574.  muls #AlienStatLen,d1
  5575.  add.l d1,a6
  5576.  move.b A_GFXType+1(a6),VECOBJ
  5577.  cmp.w #1,A_GFXType(a6)
  5578.  bne.s .NOSIDES3
  5579.  
  5580.  moveq #0,d0
  5581.  
  5582. .NOSIDES3:
  5583.  
  5584.  move.l LINKFILE,a6
  5585.  
  5586.  add.l #AlienAnimData,a6
  5587.  
  5588.  move.w d7,d1
  5589.  muls #A_AnimLen,d1
  5590.  add.l d1,a6
  5591.  
  5592. ; move.l ANIMPOINTER,a6
  5593.  
  5594.  muls #A_OptLen,d0
  5595.  add.w d0,a6
  5596.  
  5597.  move.w SecTimer(a0),d1
  5598.  move.w d1,d2
  5599.  muls #A_FrameLen,d1
  5600.  
  5601.  addq #1,d2
  5602.  
  5603.  move.w d2,d3
  5604.  muls #A_FrameLen,d3
  5605.  tst.b (a6,d3.w)
  5606.  bge.s .noendanim3
  5607.  move.w #0,d2
  5608. .noendanim3
  5609.  move.w d2,SecTimer(a0)
  5610.  
  5611.  move.w d2,d1
  5612.  
  5613.  muls #A_FrameLen,d1
  5614.  
  5615.  move.l #0,8(a0)
  5616.  move.b (a6,d1.w),9(a0)
  5617.  move.b 1(a6,d1.w),d0
  5618.  ext.w d0
  5619.  bgt.s .noflip3
  5620.  move.b #128,10(a0)
  5621.  neg.w d0
  5622. .noflip3:
  5623.  sub.w #1,d0
  5624.  move.b d0,11(a0)
  5625.  
  5626.  move.w #-1,6(a0)
  5627.  cmp.b #1,VECOBJ
  5628.  beq.s .nosize3
  5629.  bgt.s .setlight3
  5630.  move.w 2(a6,d1.w),6(a0)
  5631.  bra.s .ddone3
  5632.  
  5633. .nosize3
  5634.  
  5635. ; move.l #$00090001,8(a0)
  5636.  
  5637.  bra.s .ddone3
  5638.  
  5639. .setlight3:
  5640.  move.w 2(a6,d1.w),6(a0)
  5641.  
  5642.  move.b VECOBJ,d1
  5643.  or.b d1,10(a0)
  5644.  
  5645. .ddone3:
  5646.  
  5647.  
  5648.  tst.w PLAYERTHREEHEALTH
  5649.  bgt.s .okh3
  5650.  move.w #-1,12(a0)
  5651. .okh3:
  5652.  
  5653. **********************************
  5654.  
  5655.  
  5656.  move.l PLR1_Obj,a0
  5657.  move.l GUN_OBJ,a3
  5658.  
  5659.  ifeq CHEESEY
  5660.  
  5661.  tst.w PLAYERONEHEALTH
  5662.  bgt.s .notdead
  5663.  
  5664.  move.w #-1,12(a3)
  5665.  rts
  5666.  
  5667. .notdead: 
  5668.  
  5669.  move.l PLR1_Roompt,a1
  5670.  
  5671.  move.w Facing(a0),d0
  5672.  add.w #4096,d0
  5673.  and.w #8190,d0
  5674.  move.w d0,Facing(a3)
  5675.  
  5676.  move.w (a1),12(a3)
  5677.  move.w (a1),GraphicRoom(a3)
  5678.  
  5679.  moveq #0,d0
  5680.  move.b p1_gunselected,d0
  5681.  
  5682.  move.l LINKFILE,a1
  5683.  add.l #GunObjects,a1
  5684.  move.w (a1,d0.w*2),d0
  5685.  
  5686.  move.b d0,TypeOfThing(a3)
  5687.  move.b #1,128(a3)
  5688.  
  5689.  move.w (a0),d0
  5690.  move.w (a3),d1
  5691.  move.l ObjectPoints,a1
  5692.  move.l (a1,d0.w*8),(a1,d1.w*8)
  5693.  move.l 4(a1,d0.w*8),4(a1,d1.w*8)
  5694.  
  5695.  st WhichAnim(a3)
  5696.  
  5697.  move.l p1_yoff,d0
  5698.  move.l p1_height,d1
  5699.  asr.l #2,d1
  5700.  add.l #10*128,d1
  5701.  add.l d1,d0
  5702.  asr.l #7,d0
  5703.  move.w d0,4(a3)
  5704.  move.l PLR1_BOBBLEY,d1
  5705.  asr.l #8,d1
  5706.  move.l d1,d0
  5707.  asr.l #1,d0
  5708.  add.l d0,d1
  5709.  add.w d1,4(a3)
  5710.  
  5711.  move.b ObjInTop(a0),ObjInTop(a3)
  5712.  
  5713.  endc
  5714.  
  5715.  ifne CHEESEY
  5716.  move.w #-1,12+128(a0)
  5717.  endc
  5718.  
  5719.  rts
  5720.  
  5721. ***************************************************
  5722. **************************************************
  5723.  
  5724. USEPLR2:
  5725.  
  5726. ***********************************
  5727.  
  5728.  move.l PLR2_Obj,a0 
  5729.  move.b #5,16(a0)
  5730.  move.l ObjectPoints,a1
  5731.  move.l #ObjRotated,a2
  5732.  move.w (a0),d0
  5733.  move.l PLR2_xoff,(a1,d0.w*8)
  5734.  move.l PLR2_zoff,4(a1,d0.w*8)
  5735.  move.l PLR2_Roompt,a1
  5736.  
  5737.  moveq #0,d2
  5738.  move.b damagetaken(a0),d2
  5739.  beq .notbeenshot
  5740.  
  5741.  moveq #0,d4
  5742.  move.w ImpactX(a0),d3
  5743.  beq.s .notwist
  5744.  move.w d2,d4
  5745. .notwist:
  5746.  add.w d3,PLR2s_xspdval
  5747.  move.w ImpactZ(a0),d3
  5748.  beq.s .notwist2
  5749.  move.w d2,d4
  5750. .notwist2:
  5751.  add.w d3,PLR2s_zspdval
  5752.  
  5753.  jsr GetRand
  5754.  muls d4,d0
  5755.  asr.l #8,d0
  5756.  asr.l #4,d0
  5757.  add.w d0,PLR2s_angspd
  5758.  
  5759.  move.l #7*2116,hitcol
  5760.  sub.w d2,PLAYERTWOHEALTH
  5761.  
  5762.  
  5763.  movem.l d0-d7/a0-a6,-(a7)
  5764.  move.w #19,Samplenum
  5765.  clr.b notifplaying
  5766.  move.w #$fffa,IDNUM
  5767.  move.w #0,Noisex
  5768.  move.w #0,Noisez
  5769.  move.w #60,Noisevol
  5770.  jsr MakeSomeNoise
  5771.  
  5772.  movem.l (a7)+,d0-d7/a0-a6
  5773.  
  5774. .notbeenshot
  5775.  move.b #0,damagetaken(a0)
  5776.  move.b #10,numlives(a0)
  5777.  
  5778.  move.w p2_angpos,Facing(a0)
  5779.  move.b PLR2_StoodInTop,ObjInTop(a0)
  5780.  
  5781.  move.w (a1),12(a0)
  5782.  move.w (a1),d2
  5783.  move.l #ZoneBrightTable,a1
  5784.  move.l (a1,d2.w*4),d2
  5785.  tst.b PLR2_StoodInTop
  5786.  bne.s .okinbott
  5787.  swap d2
  5788. .okinbott:
  5789.  
  5790.  move.w d2,2(a0)
  5791.  
  5792.  move.l PLR2_yoff,d0
  5793.  move.l p2_height,d1
  5794.  asr.l #1,d1
  5795.  add.l d1,d0
  5796.  asr.l #7,d0
  5797.  move.w d0,4(a0)
  5798.  
  5799.  tst.w PLAYERTWOHEALTH
  5800.  bgt.s .okh55
  5801.  move.w #-1,12(a0)
  5802. .okh55:
  5803.  
  5804. ***********************************
  5805.  
  5806.  move.l PLR1_Obj,a0 
  5807.  move.b #4,16(a0)
  5808.  
  5809.  move.w PLR1_angpos,d0
  5810.  and.w #8190,d0
  5811.  move.w d0,Facing(a0)
  5812. ; 
  5813. ; jsr ViewpointToDraw
  5814. ; asl.w #2,d0
  5815. ; moveq #0,d1
  5816. ; move.b p2_bobble,d1
  5817. ; not.b d1
  5818. ; lsr.b #3,d1
  5819. ; and.b #$3,d1
  5820. ; add.w d1,d0
  5821. ; move.w d0,10(a0)
  5822. ; move.w #10,8(a0)
  5823. ; 
  5824.  
  5825.  move.l ObjectPoints,a1
  5826.  move.l #ObjRotated,a2
  5827.  move.w (a0),d0
  5828.  move.l PLR1_xoff,(a1,d0.w*8)
  5829.  move.l PLR1_zoff,4(a1,d0.w*8)
  5830.  move.l PLR1_Roompt,a1
  5831.  
  5832.  moveq #0,d2
  5833.  move.b damagetaken(a0),d2
  5834.  beq .notbeenshot2
  5835.  
  5836.  move.w ImpactX(a0),d3
  5837.  add.w d3,PLR1s_xspdval
  5838.  move.w ImpactZ(a0),d3
  5839.  add.w d3,PLR1s_zspdval
  5840.  
  5841.  sub.w d2,PLAYERONEHEALTH
  5842.  
  5843.  
  5844. .notbeenshot2
  5845.  move.b #0,damagetaken(a0)
  5846.  move.b #10,numlives(a0)
  5847.  
  5848.  move.b PLR1_StoodInTop,ObjInTop(a0)
  5849.  
  5850.  move.w (a1),12(a0)
  5851.  move.w (a1),d2
  5852.  move.l #ZoneBrightTable,a1
  5853.  move.l (a1,d2.w*4),d2
  5854.  tst.b PLR1_StoodInTop
  5855.  bne.s .okinbott2
  5856.  swap d2
  5857. .okinbott2:
  5858.  
  5859.  move.w d2,2(a0)
  5860.  
  5861.  move.l p1_yoff,d0
  5862.  move.l p1_height,d1
  5863.  asr.l #1,d1
  5864.  add.l d1,d0
  5865.  asr.l #7,d0
  5866.  move.w d0,4(a0)
  5867.  
  5868.  jsr ViewpointToDraw
  5869.  add.l d0,d0
  5870.  
  5871.  move.l LINKFILE,a6
  5872.  add.l #PLR1ALIEN,a6
  5873.  move.w (a6),d7
  5874.  move.w d7,d1
  5875.  
  5876.  move.l LINKFILE,a6
  5877.  add.l #AlienStats,a6
  5878.  muls #AlienStatLen,d1
  5879.  add.l d1,a6
  5880.  move.b A_GFXType+1(a6),VECOBJ
  5881.  cmp.w #1,A_GFXType(a6)
  5882.  bne.s .NOSIDES2
  5883.  
  5884.  moveq #0,d0
  5885.  
  5886. .NOSIDES2:
  5887.  
  5888.  move.l LINKFILE,a6
  5889.  
  5890.  add.l #AlienAnimData,a6
  5891.  
  5892.  move.w d7,d1
  5893.  muls #A_AnimLen,d1
  5894.  add.l d1,a6
  5895.  
  5896. ; move.l ANIMPOINTER,a6
  5897.  
  5898.  muls #A_OptLen,d0
  5899.  add.w d0,a6
  5900.  
  5901.  move.w SecTimer(a0),d1
  5902.  move.w d1,d2
  5903.  muls #A_FrameLen,d1
  5904.  
  5905.  addq #1,d2
  5906.  
  5907.  move.w d2,d3
  5908.  muls #A_FrameLen,d3
  5909.  tst.b (a6,d3.w)
  5910.  bge.s .noendanim
  5911.  move.w #0,d2
  5912. .noendanim
  5913.  move.w d2,SecTimer(a0)
  5914.  
  5915.  move.w d2,d1
  5916.  
  5917.  muls #A_FrameLen,d1
  5918.  
  5919.  move.l #0,8(a0)
  5920.  move.b (a6,d1.w),9(a0)
  5921.  move.b 1(a6,d1.w),d0
  5922.  ext.w d0
  5923.  bgt.s .noflip
  5924.  move.b #128,10(a0)
  5925.  neg.w d0
  5926. .noflip:
  5927.  sub.w #1,d0
  5928.  move.b d0,11(a0)
  5929.  
  5930.  move.w #-1,6(a0)
  5931.  cmp.b #1,VECOBJ
  5932.  beq.s .nosize
  5933.  bgt.s .setlight
  5934.  move.w 2(a6,d1.w),6(a0)
  5935.  bra.s .ddone
  5936.  
  5937. .nosize
  5938.  
  5939. ; move.l #$00090001,8(a0)
  5940.  
  5941.  bra.s .ddone
  5942.  
  5943. .setlight:
  5944.  move.w 2(a6,d1.w),6(a0)
  5945.  
  5946.  move.b VECOBJ,d1
  5947.  or.b d1,10(a0)
  5948.  
  5949. .ddone:
  5950.  
  5951.  tst.w PLAYERONEHEALTH
  5952.  bgt.s .okh
  5953.  move.w #-1,12(a0)
  5954. .okh:
  5955.  
  5956. **********************************
  5957.  
  5958.  
  5959.  move.l PLR3_Obj,a0 
  5960.  move.b #3,16(a0)
  5961.  
  5962.  move.w p3_angpos,d0
  5963.  and.w #8190,d0
  5964.  move.w d0,Facing(a0)
  5965. ; 
  5966. ; jsr ViewpointToDraw
  5967. ; asl.w #2,d0
  5968. ; moveq #0,d1
  5969. ; move.b p2_bobble,d1
  5970. ; not.b d1
  5971. ; lsr.b #3,d1
  5972. ; and.b #$3,d1
  5973. ; add.w d1,d0
  5974. ; move.w d0,10(a0)
  5975. ; move.w #10,8(a0)
  5976. ; 
  5977.  
  5978.  move.l ObjectPoints,a1
  5979.  move.l #ObjRotated,a2
  5980.  move.w (a0),d0
  5981.  move.l PLR3_xoff,(a1,d0.w*8)
  5982.  move.l PLR3_zoff,4(a1,d0.w*8)
  5983.  move.l PLR3_Roompt,a1
  5984.  
  5985.  moveq #0,d2
  5986.  move.b damagetaken(a0),d2
  5987.  beq .notbeenshot3
  5988.  move.w ImpactX(a0),d3
  5989.  add.w d3,PLR3s_xspdval
  5990.  move.w ImpactZ(a0),d3
  5991.  add.w d3,PLR3s_zspdval
  5992.  move.w ImpactY(a0),d3
  5993.  ext.l d3
  5994.  asl.l #8,d3
  5995.  add.l d3,PLR3s_yvel
  5996.  
  5997.  move.w #0,ImpactX(a0)
  5998.  move.w #0,ImpactY(a0)
  5999.  move.w #0,ImpactZ(a0)
  6000.  
  6001.  sub.w d2,PLAYERTHREEHEALTH
  6002.  
  6003.  
  6004. .notbeenshot3
  6005.  move.b #0,damagetaken(a0)
  6006.  move.b #10,numlives(a0)
  6007.  
  6008.  move.b PLR3_StoodInTop,ObjInTop(a0)
  6009.  
  6010.  move.w (a1),12(a0)
  6011.  move.w (a1),d2
  6012.  move.l #ZoneBrightTable,a1
  6013.  move.l (a1,d2.w*4),d2
  6014.  tst.b PLR3_StoodInTop
  6015.  bne.s .okinbott3
  6016.  swap d2
  6017. .okinbott3:
  6018.  
  6019.  move.w d2,2(a0)
  6020.  
  6021.  move.l p3_yoff,d0
  6022.  move.l p3_height,d1
  6023.  asr.l #1,d1
  6024.  add.l d1,d0
  6025.  asr.l #7,d0
  6026.  move.w d0,4(a0)
  6027.  
  6028.  jsr ViewpointToDraw
  6029.  add.l d0,d0
  6030.  
  6031.  move.l LINKFILE,a6
  6032.  add.l #PLR1ALIEN,a6
  6033.  move.w (a6),d7
  6034.  move.w d7,d1
  6035.  
  6036.  move.l LINKFILE,a6
  6037.  add.l #AlienStats,a6
  6038.  muls #AlienStatLen,d1
  6039.  add.l d1,a6
  6040.  move.b A_GFXType+1(a6),VECOBJ
  6041.  cmp.w #1,A_GFXType(a6)
  6042.  bne.s .NOSIDES3
  6043.  
  6044.  moveq #0,d0
  6045.  
  6046. .NOSIDES3:
  6047.  
  6048.  move.l LINKFILE,a6
  6049.  
  6050.  add.l #AlienAnimData,a6
  6051.  
  6052.  move.w d7,d1
  6053.  muls #A_AnimLen,d1
  6054.  add.l d1,a6
  6055.  
  6056. ; move.l ANIMPOINTER,a6
  6057.  
  6058.  muls #A_OptLen,d0
  6059.  add.w d0,a6
  6060.  
  6061.  move.w SecTimer(a0),d1
  6062.  move.w d1,d2
  6063.  muls #A_FrameLen,d1
  6064.  
  6065.  addq #1,d2
  6066.  
  6067.  move.w d2,d3
  6068.  muls #A_FrameLen,d3
  6069.  tst.b (a6,d3.w)
  6070.  bge.s .noendanim3
  6071.  move.w #0,d2
  6072. .noendanim3
  6073.  move.w d2,SecTimer(a0)
  6074.  
  6075.  move.w d2,d1
  6076.  
  6077.  muls #A_FrameLen,d1
  6078.  
  6079.  move.l #0,8(a0)
  6080.  move.b (a6,d1.w),9(a0)
  6081.  move.b 1(a6,d1.w),d0
  6082.  ext.w d0
  6083.  bgt.s .noflip3
  6084.  move.b #128,10(a0)
  6085.  neg.w d0
  6086. .noflip3:
  6087.  sub.w #1,d0
  6088.  move.b d0,11(a0)
  6089.  
  6090.  move.w #-1,6(a0)
  6091.  cmp.b #1,VECOBJ
  6092.  beq.s .nosize3
  6093.  bgt.s .setlight3
  6094.  move.w 2(a6,d1.w),6(a0)
  6095.  bra.s .ddone3
  6096.  
  6097. .nosize3
  6098.  
  6099. ; move.l #$00090001,8(a0)
  6100.  
  6101.  bra.s .ddone3
  6102.  
  6103. .setlight3:
  6104.  move.w 2(a6,d1.w),6(a0)
  6105.  
  6106.  move.b VECOBJ,d1
  6107.  or.b d1,10(a0)
  6108.  
  6109. .ddone3:
  6110.  
  6111.  
  6112.  tst.w PLAYERTHREEHEALTH
  6113.  bgt.s .okh3
  6114.  move.w #-1,12(a0)
  6115. .okh3:
  6116.  
  6117. **********************************
  6118.  
  6119. **********************************
  6120.  
  6121.  move.l PLR2_Obj,a0
  6122.  move.l GUN_OBJ,a3
  6123.  
  6124.  ifeq CHEESEY
  6125.  
  6126.  tst.w PLAYERTWOHEALTH
  6127.  bgt.s .notdead
  6128.  
  6129.  move.w #-1,12(a3)
  6130.  rts
  6131.  
  6132. .notdead: 
  6133.  move.l PLR2_Roompt,a1
  6134.  
  6135.  move.w Facing(a0),d0
  6136.  add.w #4096,d0
  6137.  and.w #8190,d0
  6138.  move.w d0,Facing(a3)
  6139.  
  6140.  move.w (a1),12(a3)
  6141.  move.w (a1),GraphicRoom(a3)
  6142.  
  6143.  moveq #0,d0
  6144.  move.b p2_gunselected,d0
  6145.  
  6146.  move.l LINKFILE,a1
  6147.  add.l #GunObjects,a1
  6148.  move.w (a1,d0.w*2),d0
  6149.  
  6150.  move.b d0,TypeOfThing(a3)
  6151.  move.b #1,16(a3)
  6152.  
  6153.  move.w (a0),d0
  6154.  move.w (a3),d1
  6155.  move.l ObjectPoints,a1
  6156.  move.l (a1,d0.w*8),(a1,d1.w*8) 
  6157.  move.l 4(a1,d0.w*8),4(a1,d1.w*8) 
  6158.  
  6159.  st WhichAnim(a3)
  6160.  
  6161.  move.l p2_yoff,d0
  6162.  move.l p2_height,d1
  6163.  asr.l #2,d1
  6164.  add.l #10*128,d1
  6165.  add.l d1,d0
  6166.  asr.l #7,d0
  6167.  move.w d0,4(a3)
  6168.  move.l PLR2_BOBBLEY,d1
  6169.  asr.l #8,d1
  6170.  move.l d1,d0
  6171.  asr.l #1,d0
  6172.  add.l d0,d1
  6173.  add.w d1,4(a3)
  6174.  
  6175.  move.b ObjInTop(a0),ObjInTop(a3)
  6176.  
  6177.  endc
  6178.  
  6179.  ifne CHEESEY
  6180.  
  6181.  move.w #-1,12(a3)
  6182.  endc
  6183.  
  6184.  rts
  6185.  
  6186.  
  6187. USEPLR3:
  6188.  
  6189. ***********************************
  6190.  
  6191.  move.l PLR3_Obj,a0 
  6192.  move.b #3,16(a0)
  6193.  move.l ObjectPoints,a1
  6194.  move.l #ObjRotated,a2
  6195.  move.w (a0),d0
  6196.  move.l PLR3_xoff,(a1,d0.w*8)
  6197.  move.l PLR3_zoff,4(a1,d0.w*8)
  6198.  move.l PLR3_Roompt,a1
  6199.  
  6200.  moveq #0,d2
  6201.  move.b damagetaken(a0),d2
  6202.  beq .notbeenshot
  6203.  
  6204.  moveq #0,d4
  6205.  move.w ImpactX(a0),d3
  6206.  beq.s .notwist
  6207.  move.w d2,d4
  6208. .notwist:
  6209.  add.w d3,PLR3s_xspdval
  6210.  move.w ImpactZ(a0),d3
  6211.  beq.s .notwist2
  6212.  move.w d2,d4
  6213. .notwist2:
  6214.  add.w d3,PLR3s_zspdval
  6215.  
  6216.  jsr GetRand
  6217.  muls d4,d0
  6218.  asr.l #8,d0
  6219.  asr.l #4,d0
  6220.  add.w d0,PLR3s_angspd
  6221.  
  6222.  move.l #7*2116,hitcol
  6223.  sub.w d2,PLAYERTHREEHEALTH
  6224.  
  6225.  
  6226.  movem.l d0-d7/a0-a6,-(a7)
  6227.  move.w #19,Samplenum
  6228.  clr.b notifplaying
  6229.  move.w #$fffa,IDNUM
  6230.  move.w #0,Noisex
  6231.  move.w #0,Noisez
  6232.  move.w #60,Noisevol
  6233.  jsr MakeSomeNoise
  6234.  
  6235.  movem.l (a7)+,d0-d7/a0-a6
  6236.  
  6237. .notbeenshot
  6238.  move.b #0,damagetaken(a0)
  6239.  move.b #10,numlives(a0)
  6240.  
  6241.  move.w p3_angpos,Facing(a0)
  6242.  move.b PLR3_StoodInTop,ObjInTop(a0)
  6243.  
  6244.  move.w (a1),12(a0)
  6245.  move.w (a1),d2
  6246.  move.l #ZoneBrightTable,a1
  6247.  move.l (a1,d2.w*4),d2
  6248.  tst.b PLR3_StoodInTop
  6249.  bne.s .okinbott
  6250.  swap d2
  6251. .okinbott:
  6252.  
  6253.  move.w d2,2(a0)
  6254.  
  6255.  move.l PLR3_yoff,d0
  6256.  move.l p3_height,d1
  6257.  asr.l #1,d1
  6258.  add.l d1,d0
  6259.  asr.l #7,d0
  6260.  move.w d0,4(a0)
  6261.  
  6262.  tst.w PLAYERTHREEHEALTH
  6263.  bgt.s .okh55
  6264.  move.w #-1,12(a0)
  6265. .okh55:
  6266.  
  6267. ***********************************
  6268.  
  6269. ***********************************
  6270.  
  6271.  move.l PLR2_Obj,a0 
  6272.  move.b #5,16(a0)
  6273.  
  6274.  move.w p2_angpos,d0
  6275.  and.w #8190,d0
  6276.  move.w d0,Facing(a0)
  6277. ; 
  6278. ; jsr ViewpointToDraw
  6279. ; asl.w #2,d0
  6280. ; moveq #0,d1
  6281. ; move.b p2_bobble,d1
  6282. ; not.b d1
  6283. ; lsr.b #3,d1
  6284. ; and.b #$3,d1
  6285. ; add.w d1,d0
  6286. ; move.w d0,10(a0)
  6287. ; move.w #10,8(a0)
  6288. ; 
  6289.  
  6290.  move.l ObjectPoints,a1
  6291.  move.l #ObjRotated,a2
  6292.  move.w (a0),d0
  6293.  move.l PLR2_xoff,(a1,d0.w*8)
  6294.  move.l PLR2_zoff,4(a1,d0.w*8)
  6295.  move.l PLR2_Roompt,a1
  6296.  
  6297.  moveq #0,d2
  6298.  move.b damagetaken(a0),d2
  6299.  beq .notbeenshot2
  6300.  move.w ImpactX(a0),d3
  6301.  add.w d3,PLR2s_xspdval
  6302.  move.w ImpactZ(a0),d3
  6303.  add.w d3,PLR2s_zspdval
  6304.  move.w ImpactY(a0),d3
  6305.  ext.l d3
  6306.  asl.l #8,d3
  6307.  add.l d3,PLR2s_yvel
  6308.  
  6309.  move.w #0,ImpactX(a0)
  6310.  move.w #0,ImpactY(a0)
  6311.  move.w #0,ImpactZ(a0)
  6312.  
  6313.  sub.w d2,PLAYERTWOHEALTH
  6314.  
  6315.  
  6316. .notbeenshot2
  6317.  move.b #0,damagetaken(a0)
  6318.  move.b #10,numlives(a0)
  6319.  
  6320.  move.b PLR2_StoodInTop,ObjInTop(a0)
  6321.  
  6322.  move.w (a1),12(a0)
  6323.  move.w (a1),d2
  6324.  move.l #ZoneBrightTable,a1
  6325.  move.l (a1,d2.w*4),d2
  6326.  tst.b PLR2_StoodInTop
  6327.  bne.s .okinbott2
  6328.  swap d2
  6329. .okinbott2:
  6330.  
  6331.  move.w d2,2(a0)
  6332.  
  6333.  move.l p2_yoff,d0
  6334.  move.l p2_height,d1
  6335.  asr.l #1,d1
  6336.  add.l d1,d0
  6337.  asr.l #7,d0
  6338.  move.w d0,4(a0)
  6339.  
  6340.  jsr ViewpointToDraw
  6341.  add.l d0,d0
  6342.  
  6343.  move.l LINKFILE,a6
  6344.  add.l #PLR2ALIEN,a6
  6345.  move.w (a6),d7
  6346.  move.w d7,d1
  6347.  
  6348.  move.l LINKFILE,a6
  6349.  add.l #AlienStats,a6
  6350.  muls #AlienStatLen,d1
  6351.  add.l d1,a6
  6352.  move.b A_GFXType+1(a6),VECOBJ
  6353.  cmp.w #1,A_GFXType(a6)
  6354.  bne.s .NOSIDES2
  6355.  
  6356.  moveq #0,d0
  6357.  
  6358. .NOSIDES2:
  6359.  
  6360.  move.l LINKFILE,a6
  6361.  
  6362.  add.l #AlienAnimData,a6
  6363.  
  6364.  move.w d7,d1
  6365.  muls #A_AnimLen,d1
  6366.  add.l d1,a6
  6367.  
  6368. ; move.l ANIMPOINTER,a6
  6369.  
  6370.  muls #A_OptLen,d0
  6371.  add.w d0,a6
  6372.  
  6373.  move.w SecTimer(a0),d1
  6374.  move.w d1,d2
  6375.  muls #A_FrameLen,d1
  6376.  
  6377.  addq #1,d2
  6378.  
  6379.  move.w d2,d3
  6380.  muls #A_FrameLen,d3
  6381.  tst.b (a6,d3.w)
  6382.  bge.s .noendanim
  6383.  move.w #0,d2
  6384. .noendanim
  6385.  move.w d2,SecTimer(a0)
  6386.  
  6387.  move.w d2,d1
  6388.  
  6389.  muls #A_FrameLen,d1
  6390.  
  6391.  move.l #0,8(a0)
  6392.  move.b (a6,d1.w),9(a0)
  6393.  move.b 1(a6,d1.w),d0
  6394.  ext.w d0
  6395.  bgt.s .noflip
  6396.  move.b #128,10(a0)
  6397.  neg.w d0
  6398. .noflip:
  6399.  sub.w #1,d0
  6400.  move.b d0,11(a0)
  6401.  
  6402.  move.w #-1,6(a0)
  6403.  cmp.b #1,VECOBJ
  6404.  beq.s .nosize
  6405.  bgt.s .setlight
  6406.  move.w 2(a6,d1.w),6(a0)
  6407.  bra.s .ddone
  6408.  
  6409. .nosize
  6410.  
  6411. ; move.l #$00090001,8(a0)
  6412.  
  6413.  bra.s .ddone
  6414.  
  6415. .setlight:
  6416.  move.w 2(a6,d1.w),6(a0)
  6417.  
  6418.  move.b VECOBJ,d1
  6419.  or.b d1,10(a0)
  6420.  
  6421. .ddone:
  6422.  
  6423.  
  6424.  tst.w PLAYERTWOHEALTH
  6425.  bgt.s .okh
  6426.  move.w #-1,12(a0)
  6427. .okh:
  6428.  
  6429.  
  6430. **********************************
  6431.  
  6432.  
  6433. ***********************************
  6434.  
  6435.  move.l PLR1_Obj,a0 
  6436.  move.b #4,16(a0)
  6437.  
  6438.  move.w PLR1_angpos,d0
  6439.  and.w #8190,d0
  6440.  move.w d0,Facing(a0)
  6441. ; 
  6442. ; jsr ViewpointToDraw
  6443. ; asl.w #2,d0
  6444. ; moveq #0,d1
  6445. ; move.b p2_bobble,d1
  6446. ; not.b d1
  6447. ; lsr.b #3,d1
  6448. ; and.b #$3,d1
  6449. ; add.w d1,d0
  6450. ; move.w d0,10(a0)
  6451. ; move.w #10,8(a0)
  6452. ; 
  6453.  
  6454.  move.l ObjectPoints,a1
  6455.  move.l #ObjRotated,a2
  6456.  move.w (a0),d0
  6457.  move.l PLR1_xoff,(a1,d0.w*8)
  6458.  move.l PLR1_zoff,4(a1,d0.w*8)
  6459.  move.l PLR1_Roompt,a1
  6460.  
  6461.  moveq #0,d2
  6462.  move.b damagetaken(a0),d2
  6463.  beq .notbeenshot233
  6464.  
  6465.  move.w ImpactX(a0),d3
  6466.  add.w d3,PLR1s_xspdval
  6467.  move.w ImpactZ(a0),d3
  6468.  add.w d3,PLR1s_zspdval
  6469.  
  6470.  sub.w d2,PLAYERONEHEALTH
  6471.  
  6472.  
  6473. .notbeenshot233
  6474.  move.b #0,damagetaken(a0)
  6475.  move.b #10,numlives(a0)
  6476.  
  6477.  move.b PLR1_StoodInTop,ObjInTop(a0)
  6478.  
  6479.  move.w (a1),12(a0)
  6480.  move.w (a1),d2
  6481.  move.l #ZoneBrightTable,a1
  6482.  move.l (a1,d2.w*4),d2
  6483.  tst.b PLR1_StoodInTop
  6484.  bne.s .okinbott233
  6485.  swap d2
  6486. .okinbott233:
  6487.  
  6488.  move.w d2,2(a0)
  6489.  
  6490.  move.l p1_yoff,d0
  6491.  move.l p1_height,d1
  6492.  asr.l #1,d1
  6493.  add.l d1,d0
  6494.  asr.l #7,d0
  6495.  move.w d0,4(a0)
  6496.  
  6497.  jsr ViewpointToDraw
  6498.  add.l d0,d0
  6499.  
  6500.  move.l LINKFILE,a6
  6501.  add.l #PLR1ALIEN,a6
  6502.  move.w (a6),d7
  6503.  move.w d7,d1
  6504.  
  6505.  move.l LINKFILE,a6
  6506.  add.l #AlienStats,a6
  6507.  muls #AlienStatLen,d1
  6508.  add.l d1,a6
  6509.  move.b A_GFXType+1(a6),VECOBJ
  6510.  cmp.w #1,A_GFXType(a6)
  6511.  bne.s .NOSIDES233
  6512.  
  6513.  moveq #0,d0
  6514.  
  6515. .NOSIDES233:
  6516.  
  6517.  move.l LINKFILE,a6
  6518.  
  6519.  add.l #AlienAnimData,a6
  6520.  
  6521.  move.w d7,d1
  6522.  muls #A_AnimLen,d1
  6523.  add.l d1,a6
  6524.  
  6525. ; move.l ANIMPOINTER,a6
  6526.  
  6527.  muls #A_OptLen,d0
  6528.  add.w d0,a6
  6529.  
  6530.  move.w SecTimer(a0),d1
  6531.  move.w d1,d2
  6532.  muls #A_FrameLen,d1
  6533.  
  6534.  addq #1,d2
  6535.  
  6536.  move.w d2,d3
  6537.  muls #A_FrameLen,d3
  6538.  tst.b (a6,d3.w)
  6539.  bge.s .noendanim33
  6540.  move.w #0,d2
  6541. .noendanim33
  6542.  move.w d2,SecTimer(a0)
  6543.  
  6544.  move.w d2,d1
  6545.  
  6546.  muls #A_FrameLen,d1
  6547.  
  6548.  move.l #0,8(a0)
  6549.  move.b (a6,d1.w),9(a0)
  6550.  move.b 1(a6,d1.w),d0
  6551.  ext.w d0
  6552.  bgt.s .noflip33
  6553.  move.b #128,10(a0)
  6554.  neg.w d0
  6555. .noflip33:
  6556.  sub.w #1,d0
  6557.  move.b d0,11(a0)
  6558.  
  6559.  move.w #-1,6(a0)
  6560.  cmp.b #1,VECOBJ
  6561.  beq.s .nosize33
  6562.  bgt.s .setlight33
  6563.  move.w 2(a6,d1.w),6(a0)
  6564.  bra.s .ddone33
  6565.  
  6566. .nosize33
  6567.  
  6568. ; move.l #$00090001,8(a0)
  6569.  
  6570.  bra.s .ddone33
  6571.  
  6572. .setlight33:
  6573.  move.w 2(a6,d1.w),6(a0)
  6574.  
  6575.  move.b VECOBJ,d1
  6576.  or.b d1,10(a0)
  6577.  
  6578. .ddone33:
  6579.  
  6580.  tst.w PLAYERONEHEALTH
  6581.  bgt.s .okh33
  6582.  move.w #-1,12(a0)
  6583. .okh33:
  6584.  
  6585. **********************************
  6586.  
  6587.  
  6588.  
  6589. **********************************
  6590.  
  6591.  move.l PLR3_Obj,a0
  6592.  move.l GUN_OBJ,a3
  6593.  
  6594.  ifeq CHEESEY
  6595.  
  6596.  tst.w PLAYERTWOHEALTH
  6597.  bgt.s .notdead
  6598.  
  6599.  move.w #-1,12(a3)
  6600.  rts
  6601.  
  6602. .notdead: 
  6603.  move.l PLR3_Roompt,a1
  6604.  
  6605.  move.w Facing(a0),d0
  6606.  add.w #4096,d0
  6607.  and.w #8190,d0
  6608.  move.w d0,Facing(a3)
  6609.  
  6610.  move.w (a1),12(a3)
  6611.  move.w (a1),GraphicRoom(a3)
  6612.  
  6613.  moveq #0,d0
  6614.  move.b p3_gunselected,d0
  6615.  
  6616.  move.l LINKFILE,a1
  6617.  add.l #GunObjects,a1
  6618.  move.w (a1,d0.w*2),d0
  6619.  
  6620.  move.b d0,TypeOfThing(a3)
  6621.  move.b #1,16(a3)
  6622.  
  6623.  move.w (a0),d0
  6624.  move.w (a3),d1
  6625.  move.l ObjectPoints,a1
  6626.  move.l (a1,d0.w*8),(a1,d1.w*8) 
  6627.  move.l 4(a1,d0.w*8),4(a1,d1.w*8) 
  6628.  
  6629.  st WhichAnim(a3)
  6630.  
  6631.  move.l p3_yoff,d0
  6632.  move.l p3_height,d1
  6633.  asr.l #2,d1
  6634.  add.l #10*128,d1
  6635.  add.l d1,d0
  6636.  asr.l #7,d0
  6637.  move.w d0,4(a3)
  6638.  move.l PLR3_BOBBLEY,d1
  6639.  asr.l #8,d1
  6640.  move.l d1,d0
  6641.  asr.l #1,d0
  6642.  add.l d0,d1
  6643.  add.w d1,4(a3)
  6644.  
  6645.  move.b ObjInTop(a0),ObjInTop(a3)
  6646.  
  6647.  endc
  6648.  
  6649.  ifne CHEESEY
  6650.  
  6651.  move.w #-1,12(a3)
  6652.  endc
  6653.  
  6654. **********************************
  6655.  
  6656.  move.l PLR3_Obj,a0
  6657.  move.l GUN_OBJ,a3
  6658.  
  6659.  ifeq CHEESEY
  6660.  
  6661.  tst.w PLAYERTHREEHEALTH
  6662.  bgt.s .notdead333
  6663.  
  6664.  move.w #-1,12(a3)
  6665.  rts
  6666.  
  6667. .notdead333: 
  6668.  move.l PLR3_Roompt,a1
  6669.  
  6670.  move.w Facing(a0),d0
  6671.  add.w #4096,d0
  6672.  and.w #8190,d0
  6673.  move.w d0,Facing(a3)
  6674.  
  6675.  move.w (a1),12(a3)
  6676.  move.w (a1),GraphicRoom(a3)
  6677.  
  6678.  moveq #0,d0
  6679.  move.b p3_gunselected,d0
  6680.  
  6681.  move.l LINKFILE,a1
  6682.  add.l #GunObjects,a1
  6683.  move.w (a1,d0.w*2),d0
  6684.  
  6685.  move.b d0,TypeOfThing(a3)
  6686.  move.b #1,16(a3)
  6687.  
  6688.  move.w (a0),d0
  6689.  move.w (a3),d1
  6690.  move.l ObjectPoints,a1
  6691.  move.l (a1,d0.w*8),(a1,d1.w*8) 
  6692.  move.l 4(a1,d0.w*8),4(a1,d1.w*8) 
  6693.  
  6694.  st WhichAnim(a3)
  6695.  
  6696.  move.l p3_yoff,d0
  6697.  move.l p3_height,d1
  6698.  asr.l #2,d1
  6699.  add.l #10*128,d1
  6700.  add.l d1,d0
  6701.  asr.l #7,d0
  6702.  move.w d0,4(a3)
  6703.  move.l PLR3_BOBBLEY,d1
  6704.  asr.l #8,d1
  6705.  move.l d1,d0
  6706.  asr.l #1,d0
  6707.  add.l d0,d1
  6708.  add.w d1,4(a3)
  6709.  
  6710.  move.b ObjInTop(a0),ObjInTop(a3)
  6711.  
  6712.  endc
  6713.  
  6714.  ifne CHEESEY
  6715.  
  6716.  move.w #-1,12(a3)
  6717.  endc
  6718.  
  6719.  rts
  6720.  
  6721.  
  6722. GunSelected: dc.b 0
  6723.  even
  6724.  
  6725.  
  6726. GunData: dc.l 0
  6727.  
  6728.  
  6729. protA: dc.w 0
  6730.  
  6731. Path:
  6732. ; incbin "testpath"
  6733. endpath:
  6734. pathpt: dc.l Path
  6735.  
  6736.  
  6737. PLR1KEYS: dc.b 0
  6738. PLR1PATH: dc.b 0
  6739. PLR1MOUSE: dc.b -1
  6740. PLR1JOY: dc.b 0
  6741. PLR2KEYS: dc.b 0
  6742. PLR2PATH: dc.b 0
  6743. PLR2MOUSE: dc.b -1
  6744. PLR2JOY: dc.b 0
  6745. PLR3KEYS: dc.b 0
  6746. PLR3PATH: dc.b 0
  6747. PLR3MOUSE: dc.b -1
  6748. PLR3JOY: dc.b 0
  6749.  
  6750.  even
  6751.  
  6752. PLR1_bobble: dc.w 0
  6753. PLR2_bobble: dc.w 0
  6754. PLR3_bobble: dc.w 0
  6755. xwobble: dc.l 0
  6756. xwobxoff: dc.w 0
  6757.  
  6758. xwobzoff: dc.w 0
  6759.  
  6760. PLR1_Control:
  6761.  
  6762. ; Take a snapshot of everything.
  6763.  
  6764.  move.l PLR1_xoff,d2
  6765.  move.l d2,PLR1_oldxoff
  6766.  move.l d2,oldx
  6767.  move.l PLR1_zoff,d3
  6768.  move.l d3,PLR1_oldzoff
  6769.  move.l d3,oldz
  6770.  move.l p1_xoff,d0
  6771.  move.l d0,PLR1_xoff
  6772.  move.l d0,newx
  6773.  move.l p1_zoff,d1
  6774.  move.l d1,newz
  6775.  move.l d1,PLR1_zoff
  6776.  
  6777.  move.l p1_height,PLR1_height
  6778.  
  6779.  sub.l d2,d0
  6780.  sub.l d3,d1
  6781.  move.l d0,xdiff
  6782.  move.l d1,zdiff
  6783.  move.w p1_angpos,d0
  6784.  move.w d0,PLR1_angpos
  6785.  
  6786.  move.l #SineTable,a1
  6787.  move.w (a1,d0.w),PLR1_sinval
  6788.  add.w #2048,d0
  6789.  and.w #8190,d0
  6790.  move.w (a1,d0.w),PLR1_cosval
  6791.  
  6792.  move.l p1_yoff,d0
  6793.  move.w p1_bobble,d1
  6794.  move.w (a1,d1.w),d1
  6795.  move.w d1,d3
  6796.  ble.s .notnegative
  6797.  neg.w d1
  6798. .notnegative:
  6799.  add.w #16384,d1
  6800.  asr.w #4,d1
  6801.  
  6802.  tst.b PLR1_Ducked
  6803.  bne.s .notdouble
  6804.  tst.b PLR1_Squished
  6805.  bne.s .notdouble
  6806.  add.w d1,d1
  6807. .notdouble
  6808.  ext.l d1
  6809.  
  6810.  move.l d1,PLR1_BOBBLEY
  6811.  
  6812.  move.l PLR1_height,d4
  6813.  sub.l d1,d4
  6814.  add.l d1,d0
  6815.  
  6816.  cmp.b #'s',mors
  6817.  beq.s .otherwob
  6818.  asr.w #6,d3
  6819.  ext.l d3
  6820.  move.l d3,xwobble
  6821.  move.w PLR1_sinval,d1
  6822.  muls d3,d1
  6823.  move.w PLR1_cosval,d2
  6824.  muls d3,d2
  6825.  swap d1
  6826.  swap d2
  6827.  asr.w #7,d1
  6828.  move.w d1,xwobxoff
  6829.  asr.w #7,d2
  6830.  neg.w d2
  6831.  move.w d2,xwobzoff
  6832. .otherwob
  6833.  
  6834.  move.l d0,PLR1_yoff
  6835.  move.l d0,newy
  6836.  move.l d0,oldy
  6837.  
  6838.  move.l d4,thingheight
  6839.  move.l #40*256,StepUpVal
  6840.  tst.b PLR1_Squished
  6841.  bne.s .smallstep
  6842.  tst.b PLR1_Ducked
  6843.  beq.s .okbigstep
  6844. .smallstep
  6845.  move.l #10*256,StepUpVal
  6846. .okbigstep:
  6847.  
  6848.  move.l #$1000000,StepDownVal
  6849.  
  6850.  move.l PLR1_Roompt,a0
  6851.  move.w ToTelZone(a0),d0
  6852.  blt .noteleport
  6853.  
  6854.  move.w ToTelX(a0),newx
  6855.  move.w ToTelZ(a0),newz
  6856.  
  6857.  move.l PLR1_Obj,a0
  6858.  move.w (a0),CollId
  6859.  
  6860.  move.l #%111111111111111111,CollideFlags
  6861.  jsr Collision
  6862.  tst.b hitwall
  6863.  beq.s .teleport
  6864.  
  6865.  move.w PLR1_xoff,newx
  6866.  move.w PLR1_zoff,newz
  6867.  bra .noteleport
  6868.  
  6869. .teleport:
  6870.  
  6871.  st PLR1_TELEPORTED
  6872.  
  6873.  move.l PLR1_Roompt,a0
  6874.  move.w ToTelZone(a0),d0
  6875.  move.w ToTelX(a0),PLR1_xoff
  6876.  move.w ToTelZ(a0),PLR1_zoff
  6877.  move.l PLR1_yoff,d1
  6878.  sub.l ToZoneFloor(a0),d1
  6879.  move.l ZoneAdds,a0
  6880.  move.l (a0,d0.w*4),a0
  6881.  add.l LEVELDATA,a0
  6882.  move.l a0,PLR1_Roompt
  6883.  add.l ToZoneFloor(a0),d1
  6884.  move.l d1,PLR1s_yoff
  6885.  move.l d1,PLR1_yoff
  6886.  move.l d1,PLR1s_tyoff
  6887.  move.l PLR1_xoff,PLR1s_xoff
  6888.  move.l PLR1_zoff,PLR1s_zoff
  6889.  
  6890.  SAVEREGS
  6891.  move.w #0,Noisex
  6892.  move.w #0,Noisez
  6893.  move.w #26,Samplenum
  6894.  move.w #100,Noisevol
  6895.  move.w #$fff9,IDNUM
  6896.  jsr MakeSomeNoise
  6897.  GETREGS
  6898.  
  6899.  bra .cantmove
  6900.  
  6901. .noteleport:
  6902.  
  6903.  move.l PLR1_Roompt,objroom
  6904.  move.w #%100000000,wallflags
  6905.  move.b PLR1_StoodInTop,StoodInTop
  6906.  
  6907.  move.l #%1011111110111000011,CollideFlags
  6908.  move.l PLR1_Obj,a0
  6909.  move.w (a0),CollId
  6910.  
  6911.  jsr Collision
  6912.  tst.b hitwall
  6913.  beq.s .nothitanything
  6914.  move.w oldx,PLR1_xoff
  6915.  move.w oldz,PLR1_zoff
  6916.  move.l PLR1_xoff,PLR1s_xoff
  6917.  move.l PLR1_zoff,PLR1s_zoff
  6918.  bra .cantmove
  6919. .nothitanything:
  6920.  
  6921.  move.w #40,extlen
  6922.  move.b #0,awayfromwall
  6923.  
  6924.  clr.b exitfirst
  6925.  clr.b wallbounce
  6926.  bsr MoveObject
  6927.  move.b StoodInTop,PLR1_StoodInTop
  6928.  move.l objroom,PLR1_Roompt
  6929.  move.w newx,PLR1_xoff
  6930.  move.w newz,PLR1_zoff
  6931.  move.l PLR1_xoff,PLR1s_xoff
  6932.  move.l PLR1_zoff,PLR1s_zoff
  6933.  
  6934. .cantmove:
  6935.  
  6936.  move.l PLR1_Roompt,a0
  6937.  
  6938.  move.l ToZoneFloor(a0),d0
  6939.  tst.b PLR1_StoodInTop
  6940.  beq.s notintop
  6941.  move.l ToUpperFloor(a0),d0
  6942. notintop:
  6943.  
  6944.  adda.w #ToZonePts,a0
  6945.  sub.l PLR1_height,d0
  6946.  move.l d0,PLR1s_tyoff
  6947.  move.w p1_angpos,tmpangpos
  6948.  
  6949. ; move.l (a0),a0        ; jump to viewpoint list
  6950.  * A0 is pointing at a pointer to list of points to rotate
  6951.  move.w (a0)+,d1
  6952.  ext.l d1
  6953.  add.l PLR1_Roompt,d1
  6954.  move.l d1,PLR1_PointsToRotatePtr
  6955.  tst.b (a0)+
  6956.  sne.s DRAWNGRAPHTOP
  6957.  beq.s nobackgraphics
  6958.  cmp.b #'1',WHICHAMI
  6959.  bne.s nobackgraphics
  6960.  move.l a0,-(a7)
  6961.  jsr putinbackdrop 
  6962.  move.l (a7)+,a0
  6963. nobackgraphics:
  6964.  
  6965.  move.b (a0)+,PLR1_Echo
  6966.  
  6967.  adda.w #10,a0
  6968.  move.l a0,PLR1_ListOfGraphRooms
  6969.  
  6970. *************************************************
  6971.  rts
  6972.  
  6973. DRAWNGRAPHTOP
  6974.  dc.w 0 
  6975. tstzone: dc.l 0
  6976. CollId: dc.w 0
  6977.  
  6978. PLR2_Control:
  6979.  
  6980. ; Take a snapshot of everything.
  6981.  
  6982.  move.l PLR2_xoff,d2
  6983.  move.l d2,PLR2_oldxoff
  6984.  move.l d2,oldx
  6985.  move.l PLR2_zoff,d3
  6986.  move.l d3,PLR2_oldzoff
  6987.  move.l d3,oldz
  6988.  move.l p2_xoff,d0
  6989.  move.l d0,PLR2_xoff
  6990.  move.l d0,newx
  6991.  move.l p2_zoff,d1
  6992.  move.l d1,newz
  6993.  move.l d1,PLR2_zoff
  6994.  
  6995.  move.l p2_height,PLR2_height
  6996.  
  6997.  sub.l d2,d0
  6998.  sub.l d3,d1
  6999.  move.l d0,xdiff
  7000.  move.l d1,zdiff
  7001.  move.w p2_angpos,d0
  7002.  move.w d0,PLR2_angpos
  7003.  
  7004.  move.l #SineTable,a1
  7005.  move.w (a1,d0.w),PLR2_sinval
  7006.  add.w #2048,d0
  7007.  and.w #8190,d0
  7008.  move.w (a1,d0.w),PLR2_cosval
  7009.  
  7010.  move.l p2_yoff,d0
  7011.  move.w p2_bobble,d1
  7012.  move.w (a1,d1.w),d1
  7013.  move.w d1,d3
  7014.  ble.s .notnegative
  7015.  neg.w d1
  7016. .notnegative:
  7017.  add.w #16384,d1
  7018.  asr.w #4,d1
  7019.  
  7020.  tst.b PLR2_Ducked
  7021.  bne.s .notdouble
  7022.  tst.b PLR2_Squished
  7023.  bne.s .notdouble
  7024.  add.w d1,d1
  7025. .notdouble
  7026.  ext.l d1
  7027.  
  7028.  move.l d1,PLR2_BOBBLEY
  7029.  
  7030.  move.l PLR2_height,d4
  7031.  sub.l d1,d4
  7032.  add.l d1,d0
  7033.  
  7034.  cmp.b #'s',mors
  7035.  bne.s .otherwob
  7036.  asr.w #6,d3
  7037.  ext.l d3
  7038.  move.l d3,xwobble
  7039.  move.w PLR2_sinval,d1
  7040.  muls d3,d1
  7041.  move.w PLR2_cosval,d2
  7042.  muls d3,d2
  7043.  swap d1
  7044.  swap d2
  7045.  asr.w #7,d1
  7046.  move.w d1,xwobxoff
  7047.  asr.w #7,d2
  7048.  neg.w d2
  7049.  move.w d2,xwobzoff
  7050. .otherwob
  7051.  
  7052.  move.l d0,PLR2_yoff
  7053.  move.l d0,newy
  7054.  move.l d0,oldy
  7055.  
  7056.  move.l d4,thingheight
  7057.  move.l #40*256,StepUpVal
  7058.  tst.b PLR2_Squished
  7059.  bne.s .smallstep
  7060.  tst.b PLR2_Ducked
  7061.  beq.s .okbigstep
  7062. .smallstep:
  7063.  move.l #10*256,StepUpVal
  7064. .okbigstep:
  7065.  
  7066.  move.l #$1000000,StepDownVal
  7067.  
  7068.  move.l PLR2_Roompt,a0
  7069.  move.w ToTelZone(a0),d0
  7070.  blt .noteleport
  7071.  
  7072.  move.w ToTelX(a0),newx
  7073.  move.w ToTelZ(a0),newz
  7074.  move.w PLR2_Obj,a0
  7075.  move.w (a0),CollId
  7076.  move.l #%111111111111111111,CollideFlags
  7077.  jsr Collision
  7078.  tst.b hitwall
  7079.  beq.s .teleport
  7080.  
  7081.  move.w PLR2_xoff,newx
  7082.  move.w PLR2_zoff,newz
  7083.  bra .noteleport
  7084.  
  7085. .teleport:
  7086.  
  7087.  st PLR2_TELEPORTED
  7088.  
  7089.  move.l PLR2_Roompt,a0
  7090.  move.w ToTelZone(a0),d0
  7091.  move.w ToTelX(a0),PLR2_xoff
  7092.  move.w ToTelZ(a0),PLR2_zoff
  7093.  move.l PLR2_yoff,d1
  7094.  sub.l ToZoneFloor(a0),d1
  7095.  move.l ZoneAdds,a0
  7096.  move.l (a0,d0.w*4),a0
  7097.  add.l LEVELDATA,a0
  7098.  move.l a0,PLR2_Roompt
  7099.  add.l ToZoneFloor(a0),d1
  7100.  move.l d1,PLR2s_yoff
  7101.  move.l d1,PLR2_yoff
  7102.  move.l d1,PLR2s_tyoff
  7103.  move.l PLR2_xoff,PLR2s_xoff
  7104.  move.l PLR2_zoff,PLR2s_zoff
  7105.  
  7106.  SAVEREGS
  7107.  move.w #0,Noisex
  7108.  move.w #0,Noisez
  7109.  move.w #26,Samplenum
  7110.  move.w #100,Noisevol
  7111.  move.w #$fff9,IDNUM
  7112.  jsr MakeSomeNoise
  7113.  GETREGS
  7114.  
  7115.  bra .cantmove
  7116.  
  7117. .noteleport:
  7118.  
  7119.  move.l PLR2_Roompt,objroom
  7120.  move.w #%100000000000,wallflags
  7121.  move.b PLR2_StoodInTop,StoodInTop
  7122.  
  7123.  move.l #%1011111010111100011,CollideFlags
  7124.  move.l PLR2_Obj,a0
  7125.  move.w (a0),CollId
  7126.  
  7127.  jsr Collision
  7128.  tst.b hitwall
  7129.  beq.s .nothitanything
  7130.  move.w oldx,PLR2_xoff
  7131.  move.w oldz,PLR2_zoff
  7132.  move.l PLR2_xoff,PLR2s_xoff
  7133.  move.l PLR2_zoff,PLR2s_zoff
  7134.  bra .cantmove
  7135. .nothitanything:
  7136.  
  7137.  move.w #40,extlen
  7138.  move.b #0,awayfromwall
  7139.  
  7140.  clr.b exitfirst
  7141.  clr.b wallbounce
  7142.  bsr MoveObject
  7143.  move.b StoodInTop,PLR2_StoodInTop
  7144.  move.l objroom,PLR2_Roompt
  7145.  move.w newx,PLR2_xoff
  7146.  move.w newz,PLR2_zoff
  7147.  move.l PLR2_xoff,PLR2s_xoff
  7148.  move.l PLR2_zoff,PLR2s_zoff
  7149.  
  7150. .cantmove
  7151.  
  7152.  move.l PLR2_Roompt,a0
  7153.  
  7154.  move.l ToZoneFloor(a0),d0
  7155.  tst.b PLR2_StoodInTop
  7156.  beq.s .notintop
  7157.  move.l ToUpperFloor(a0),d0
  7158. .notintop:
  7159.  
  7160.  adda.w #ToZonePts,a0
  7161.  sub.l PLR2_height,d0
  7162.  move.l d0,PLR2s_tyoff
  7163.  move.w p2_angpos,tmpangpos
  7164.  
  7165. ; move.l (a0),a0        ; jump to viewpoint list
  7166.  * A0 is pointing at a pointer to list of points to rotate
  7167.  move.w (a0)+,d1
  7168.  ext.l d1
  7169.  add.l PLR2_Roompt,d1
  7170.  move.l d1,PLR2_PointsToRotatePtr
  7171.  tst.b (a0)+
  7172.  sne.s DRAWNGRAPHTOP
  7173.  beq.s .nobackgraphics
  7174.  cmp.b #'2',WHICHAMI
  7175.  bne.s .nobackgraphics
  7176.  move.l a0,-(a7)
  7177.  jsr putinbackdrop 
  7178.  move.l (a7)+,a0
  7179. .nobackgraphics:
  7180.  
  7181.  move.b (a0)+,PLR2_Echo
  7182.  
  7183.  adda.w #10,a0
  7184.  move.l a0,PLR2_ListOfGraphRooms
  7185.  
  7186. *****************************************************
  7187.  rts
  7188.  
  7189.  
  7190.  
  7191. PLR3_Control:
  7192.  
  7193. ; Take a snapshot of everything.
  7194.  
  7195.  move.l PLR3_xoff,d2
  7196.  move.l d2,PLR3_oldxoff
  7197.  move.l d2,oldx
  7198.  move.l PLR3_zoff,d3
  7199.  move.l d3,PLR3_oldzoff
  7200.  move.l d3,oldz
  7201.  move.l p3_xoff,d0
  7202.  move.l d0,PLR3_xoff
  7203.  move.l d0,newx
  7204.  move.l p3_zoff,d1
  7205.  move.l d1,newz
  7206.  move.l d1,PLR3_zoff
  7207.  
  7208.  move.l p3_height,PLR3_height
  7209.  
  7210.  sub.l d2,d0
  7211.  sub.l d3,d1
  7212.  move.l d0,xdiff
  7213.  move.l d1,zdiff
  7214.  move.w p3_angpos,d0
  7215.  move.w d0,PLR3_angpos
  7216.  
  7217.  move.l #SineTable,a1
  7218.  move.w (a1,d0.w),PLR3_sinval
  7219.  add.w #2048,d0
  7220.  and.w #8190,d0
  7221.  move.w (a1,d0.w),PLR3_cosval
  7222.  
  7223.  move.l p3_yoff,d0
  7224.  move.w p3_bobble,d1
  7225.  move.w (a1,d1.w),d1
  7226.  move.w d1,d3
  7227.  ble.s .notnegative
  7228.  neg.w d1
  7229. .notnegative:
  7230.  add.w #16384,d1
  7231.  asr.w #4,d1
  7232.  
  7233.  tst.b PLR3_Ducked
  7234.  bne.s .notdouble
  7235.  tst.b PLR3_Squished
  7236.  bne.s .notdouble
  7237.  add.w d1,d1
  7238. .notdouble
  7239.  ext.l d1
  7240.  
  7241.  move.l d1,PLR3_BOBBLEY
  7242.  
  7243.  move.l PLR3_height,d4
  7244.  sub.l d1,d4
  7245.  add.l d1,d0
  7246.  
  7247.  cmp.b #'s',mors
  7248.  bne.s .otherwob
  7249.  asr.w #6,d3
  7250.  ext.l d3
  7251.  move.l d3,xwobble
  7252.  move.w PLR3_sinval,d1
  7253.  muls d3,d1
  7254.  move.w PLR3_cosval,d2
  7255.  muls d3,d2
  7256.  swap d1
  7257.  swap d2
  7258.  asr.w #7,d1
  7259.  move.w d1,xwobxoff
  7260.  asr.w #7,d2
  7261.  neg.w d2
  7262.  move.w d2,xwobzoff
  7263. .otherwob
  7264.  
  7265.  move.l d0,PLR3_yoff
  7266.  move.l d0,newy
  7267.  move.l d0,oldy
  7268.  
  7269.  move.l d4,thingheight
  7270.  move.l #40*256,StepUpVal
  7271.  tst.b PLR3_Squished
  7272.  bne.s .smallstep
  7273.  tst.b PLR3_Ducked
  7274.  beq.s .okbigstep
  7275. .smallstep:
  7276.  move.l #10*256,StepUpVal
  7277. .okbigstep:
  7278.  
  7279.  move.l #$1000000,StepDownVal
  7280.  
  7281.  move.l PLR3_Roompt,a0
  7282.  move.w ToTelZone(a0),d0
  7283.  blt .noteleport
  7284.  
  7285.  move.w ToTelX(a0),newx
  7286.  move.w ToTelZ(a0),newz
  7287.  move.w PLR3_Obj,a0
  7288.  move.w (a0),CollId
  7289.  move.l #%111111111111111111,CollideFlags
  7290.  jsr Collision
  7291.  tst.b hitwall
  7292.  beq.s .teleport
  7293.  
  7294.  move.w PLR3_xoff,newx
  7295.  move.w PLR3_zoff,newz
  7296.  bra .noteleport
  7297.  
  7298. .teleport:
  7299.  
  7300.  st PLR3_TELEPORTED
  7301.  
  7302.  move.l PLR3_Roompt,a0
  7303.  move.w ToTelZone(a0),d0
  7304.  move.w ToTelX(a0),PLR3_xoff
  7305.  move.w ToTelZ(a0),PLR3_zoff
  7306.  move.l PLR3_yoff,d1
  7307.  sub.l ToZoneFloor(a0),d1
  7308.  move.l ZoneAdds,a0
  7309.  move.l (a0,d0.w*4),a0
  7310.  add.l LEVELDATA,a0
  7311.  move.l a0,PLR3_Roompt
  7312.  add.l ToZoneFloor(a0),d1
  7313.  move.l d1,PLR3s_yoff
  7314.  move.l d1,PLR3_yoff
  7315.  move.l d1,PLR3s_tyoff
  7316.  move.l PLR3_xoff,PLR3s_xoff
  7317.  move.l PLR3_zoff,PLR3s_zoff
  7318.  
  7319.  SAVEREGS
  7320.  move.w #0,Noisex
  7321.  move.w #0,Noisez
  7322.  move.w #26,Samplenum
  7323.  move.w #100,Noisevol
  7324.  move.w #$fff9,IDNUM
  7325.  jsr MakeSomeNoise
  7326.  GETREGS
  7327.  
  7328.  bra .cantmove
  7329.  
  7330. .noteleport:
  7331.  
  7332.  move.l PLR3_Roompt,objroom
  7333.  move.w #%100000000000,wallflags
  7334.  move.b PLR3_StoodInTop,StoodInTop
  7335.  
  7336.  move.l #%1011111010111100011,CollideFlags
  7337.  move.l PLR3_Obj,a0
  7338.  move.w (a0),CollId
  7339.  
  7340.  jsr Collision
  7341.  tst.b hitwall
  7342.  beq.s .nothitanything
  7343.  move.w oldx,PLR3_xoff
  7344.  move.w oldz,PLR3_zoff
  7345.  move.l PLR3_xoff,PLR3s_xoff
  7346.  move.l PLR3_zoff,PLR3s_zoff
  7347.  bra .cantmove
  7348. .nothitanything:
  7349.  
  7350.  move.w #40,extlen
  7351.  move.b #0,awayfromwall
  7352.  
  7353.  clr.b exitfirst
  7354.  clr.b wallbounce
  7355.  bsr MoveObject
  7356.  move.b StoodInTop,PLR3_StoodInTop
  7357.  move.l objroom,PLR3_Roompt
  7358.  move.w newx,PLR3_xoff
  7359.  move.w newz,PLR3_zoff
  7360.  move.l PLR3_xoff,PLR3s_xoff
  7361.  move.l PLR3_zoff,PLR3s_zoff
  7362.  
  7363. .cantmove
  7364.  
  7365.  move.l PLR3_Roompt,a0
  7366.  
  7367.  move.l ToZoneFloor(a0),d0
  7368.  tst.b PLR3_StoodInTop
  7369.  beq.s .notintop
  7370.  move.l ToUpperFloor(a0),d0
  7371. .notintop:
  7372.  
  7373.  adda.w #ToZonePts,a0
  7374.  sub.l PLR3_height,d0
  7375.  move.l d0,PLR3s_tyoff
  7376.  move.w p3_angpos,tmpangpos
  7377.  
  7378. ; move.l (a0),a0        ; jump to viewpoint list
  7379.  * A0 is pointing at a pointer to list of points to rotate
  7380.  move.w (a0)+,d1
  7381.  ext.l d1
  7382.  add.l PLR3_Roompt,d1
  7383.  move.l d1,PLR3_PointsToRotatePtr
  7384.  tst.b (a0)+
  7385.  sne.s DRAWNGRAPHTOP
  7386.  beq.s .nobackgraphics
  7387.  cmp.b #'3',WHICHAMI
  7388.  bne.s .nobackgraphics
  7389.  move.l a0,-(a7)
  7390.  jsr putinbackdrop 
  7391.  move.l (a7)+,a0
  7392. .nobackgraphics:
  7393.  
  7394.  move.b (a0)+,PLR3_Echo
  7395.  
  7396.  adda.w #10,a0
  7397.  move.l a0,PLR3_ListOfGraphRooms
  7398.  
  7399. *****************************************************
  7400.  rts
  7401.  
  7402.  
  7403. PLR3_BOBBLEY: dc.l 0
  7404.  
  7405. KeyMap: ds.b 256
  7406.  
  7407. fillscrnwater:
  7408.  dc.w 0
  7409. DONTDOGUN:
  7410.  dc.w 0
  7411.  
  7412. ;temptemp: ds.l 200
  7413. ;temptempptr: dc.l 0
  7414.  
  7415. DrawDisplay:
  7416.  
  7417. ; move.l #temptemp,temptempptr
  7418.  
  7419.  clr.b fillscrnwater
  7420.  
  7421.  move.l #SineTable,a0
  7422.  move.w angpos,d0
  7423.  move.w (a0,d0.w),d6
  7424.  adda.w #2048,a0
  7425.  move.w (a0,d0.w),d7
  7426.  move.w d6,sinval
  7427.  move.w d7,cosval
  7428.  
  7429.  move.l yoff,d0
  7430.  asr.l #8,d0
  7431.  move.w d0,d1
  7432.  add.w #256-32,d1
  7433.  and.w #255,d1
  7434.  move.w d1,wallyoff
  7435.  move.l yoff,d0
  7436.  asr.l #6,d0
  7437.  move.w d0,flooryoff
  7438.  
  7439.  move.w xoff,d6
  7440.  move.w d6,d3
  7441.  asr.w #1,d3
  7442.  add.w d3,d6
  7443.  asr.w #1,d6
  7444.  move.w d6,xoff34
  7445.  
  7446.  move.w zoff,d6
  7447.  move.w d6,d3
  7448.  asr.w #1,d3
  7449.  add.w d3,d6
  7450.  asr.w #1,d6
  7451.  move.w d6,zoff34
  7452.  
  7453.  bsr RotateLevelPts
  7454.  bsr RotateObjectPts
  7455.  bsr CalcPLR1InLine
  7456.  bsr CalcPLR3InLine
  7457.  
  7458.  cmp.b #'n',mors
  7459.  bne.s doplr2too
  7460.  move.l PLR2_Obj,a0
  7461.  move.w #-1,12(a0)
  7462.  move.w #-1,GraphicRoom(a0)
  7463.  bra noplr2either
  7464.  
  7465. doplr2too:
  7466.  bsr CalcPLR2InLine
  7467. noplr2either:
  7468.  
  7469.  move.l endoflist,a0
  7470. ; move.w #-1,(a0)
  7471.  
  7472. ; move.l #FinalOrder,a0
  7473.  
  7474.  
  7475. subroomloop:
  7476. ; move.w (a0)+,d7
  7477.  move.w -(a0),d7
  7478.  blt jumpoutofrooms
  7479.  
  7480. ; bsr setlrclip
  7481. ; move.w leftclip,d0
  7482. ; cmp.w rightclip,d0
  7483. ; bge subroomloop
  7484.  move.l a0,-(a7)
  7485.  
  7486.  move.l ZoneAdds,a0
  7487.  move.l (a0,d7.w*4),a0
  7488.  add.l LEVELDATA,a0
  7489.  move.l ToZoneRoof(a0),SplitHeight
  7490.  move.l a0,ROOMBACK
  7491.  
  7492.  move.l ZoneGraphAdds,a0
  7493.  move.l 4(a0,d7.w*8),a2
  7494.  move.l (a0,d7.w*8),a0
  7495.  
  7496.  add.l LEVELGRAPHICS,a0
  7497.  add.l LEVELGRAPHICS,a2
  7498.  move.l a2,ThisRoomToDraw+4
  7499.  move.l a0,ThisRoomToDraw
  7500.  
  7501.  move.l ListOfGraphRooms,a1
  7502.  
  7503.  
  7504.  
  7505. finditit:
  7506.  tst.w (a1)
  7507.  blt nomoretodoatall
  7508.  cmp.w (a1),d7
  7509.  beq outoffind
  7510.  adda.w #8,a1
  7511.  bra finditit
  7512.  
  7513. outoffind:
  7514.  
  7515.  move.l a1,-(a7)
  7516.  
  7517.  
  7518.  move.w #0,leftclip
  7519.  move.w RIGHTX,rightclip
  7520.  moveq #0,d7
  7521.  move.w 2(a1),d7
  7522.  blt.s outofrcliplop
  7523.  move.l LEVELCLIPS,a0
  7524.  lea (a0,d7.l*2),a0
  7525.  
  7526.  tst.w (a0)
  7527.  blt outoflcliplop
  7528.  
  7529.  bsr NEWsetlclip
  7530.  
  7531. intolcliplop:        ; clips
  7532.  tst.w (a0)
  7533.  blt outoflcliplop
  7534.  
  7535.  bsr NEWsetlclip 
  7536.  bra intolcliplop
  7537.  
  7538. outoflcliplop:
  7539.  
  7540.  addq #2,a0
  7541.  
  7542.  tst.w (a0)
  7543.  blt outofrcliplop
  7544.  
  7545.  bsr NEWsetrclip
  7546.  
  7547. intorcliplop:        ; clips
  7548.  tst.w (a0)
  7549.  blt outofrcliplop
  7550.  
  7551.  bsr NEWsetrclip 
  7552.  bra intorcliplop
  7553.  
  7554. outofrcliplop:
  7555.  
  7556.  
  7557.  move.w leftclip,d0
  7558.  ext.l d0
  7559.  move.l d0,leftclip-2
  7560.  
  7561.  cmp.w RIGHTX,d0
  7562.  bge dontbothercantseeit
  7563.  move.w rightclip,d1
  7564.  ext.l d1
  7565.  move.l d1,rightclip-2
  7566.  blt dontbothercantseeit
  7567.  cmp.w d1,d0
  7568.  bge dontbothercantseeit
  7569.  
  7570.  move.l yoff,d0
  7571.  cmp.l SplitHeight,d0
  7572.  blt botfirst
  7573.  
  7574.  move.l ThisRoomToDraw+4,a0
  7575.  cmp.l LEVELGRAPHICS,a0
  7576.  beq.s noupperroom
  7577.  st DOUPPER
  7578.  
  7579.  move.l ROOMBACK,a1
  7580.  move.l ToUpperRoof(a1),TOPOFROOM
  7581.  move.l ToUpperFloor(a1),BOTOFROOM
  7582.  
  7583.  move.l #CurrentPointBrights+4,PointBrightsPtr
  7584.  bsr dothisroom
  7585. noupperroom:
  7586.  move.l ThisRoomToDraw,a0
  7587.  clr.b DOUPPER
  7588.  move.l #CurrentPointBrights,PointBrightsPtr
  7589.  
  7590.  move.l ROOMBACK,a1
  7591.  move.l ToZoneRoof(a1),d0
  7592.  move.l d0,TOPOFROOM
  7593.  move.l ToZoneFloor(a1),d1
  7594.  move.l d1,BOTOFROOM
  7595.  
  7596.  move.l ToZoneWater(a1),d2
  7597.  cmp.l yoff,d2
  7598.  blt.s .abovefirst
  7599.  move.l d2,BEFOREWATTOP
  7600.  move.l d1,BEFOREWATBOT
  7601.  move.l d2,AFTERWATBOT
  7602.  move.l d0,AFTERWATTOP
  7603.  bra.s .belowfirst
  7604. .abovefirst:
  7605.  move.l d0,BEFOREWATTOP
  7606.  move.l d2,BEFOREWATBOT
  7607.  move.l d1,AFTERWATBOT
  7608.  move.l d2,AFTERWATTOP
  7609. .belowfirst:
  7610.  
  7611.  bsr dothisroom
  7612.  
  7613.  bra dontbothercantseeit
  7614. botfirst:
  7615.  
  7616.  move.l ThisRoomToDraw,a0
  7617.  clr.b DOUPPER
  7618.  move.l #CurrentPointBrights,PointBrightsPtr
  7619.  
  7620.  move.l ROOMBACK,a1
  7621.  move.l ToZoneRoof(a1),d0
  7622.  move.l d0,TOPOFROOM
  7623.  move.l ToZoneFloor(a1),d1
  7624.  move.l d1,BOTOFROOM
  7625.  
  7626.  move.l ToZoneWater(a1),d2
  7627.  cmp.l yoff,d2
  7628.  blt.s .abovefirst
  7629.  move.l d2,BEFOREWATTOP
  7630.  move.l d1,BEFOREWATBOT
  7631.  move.l d2,AFTERWATBOT
  7632.  move.l d0,AFTERWATTOP
  7633.  bra.s .belowfirst
  7634. .abovefirst:
  7635.  move.l d0,BEFOREWATTOP
  7636.  move.l d2,BEFOREWATBOT
  7637.  move.l d1,AFTERWATBOT
  7638.  move.l d2,AFTERWATTOP
  7639. .belowfirst:
  7640.  
  7641.  
  7642.  bsr dothisroom
  7643.  move.l ThisRoomToDraw+4,a0
  7644.  cmp.l LEVELGRAPHICS,a0
  7645.  beq.s noupperroom2
  7646.  move.l #CurrentPointBrights+4,PointBrightsPtr
  7647.  
  7648.  move.l ROOMBACK,a1
  7649.  move.l ToUpperRoof(a1),TOPOFROOM
  7650.  move.l ToUpperFloor(a1),BOTOFROOM
  7651.  
  7652.  st DOUPPER
  7653.  bsr dothisroom
  7654. noupperroom2:
  7655.  
  7656. dontbothercantseeit:
  7657. pastemp:
  7658.  
  7659.  move.l (a7)+,a1
  7660.  move.l ThisRoomToDraw,a0
  7661.  move.w (a0),d7
  7662.  
  7663.  adda.w #8,a1
  7664.  bra finditit
  7665.  
  7666. nomoretodoatall:
  7667.  
  7668.  move.l (a7)+,a0
  7669.  
  7670.  bra subroomloop
  7671.  
  7672. jumpoutofrooms:
  7673.  
  7674.  
  7675.  tst.b DONTDOGUN
  7676.  bne NOGUNLOOK
  7677.  
  7678.  cmp.b #'s',mors
  7679.  beq.s drawslavegun
  7680.  
  7681.  moveq #0,d0
  7682.  move.b PLR1_GunSelected,d0
  7683.  moveq #0,d1
  7684.  move.b PLR1_GunFrame,d1
  7685. ; bsr DRAWINGUN
  7686.  bra drawngun
  7687.  
  7688. drawslavegun
  7689.  moveq #0,d0
  7690.  move.b PLR2_GunSelected,d0
  7691.  moveq #0,d1
  7692.  move.b PLR2_GunFrame,d1
  7693. ; bsr DRAWINGUN
  7694.  
  7695. drawngun:
  7696.  
  7697. NOGUNLOOK:
  7698.  
  7699.  moveq #0,d1
  7700.  move.b PLR1_GunFrame,d1
  7701.  sub.w TempFrames,d1
  7702.  bgt.s .nn
  7703.  moveq #0,d1
  7704. .nn
  7705.  move.b d1,PLR1_GunFrame
  7706.  
  7707.  ble.s .donefire
  7708.  sub.b #1,PLR1_GunFrame
  7709. .donefire:
  7710.  
  7711.  moveq #0,d1
  7712.  move.b PLR2_GunFrame,d1
  7713.  sub.w TempFrames,d1
  7714.  bgt.s .nn2
  7715.  moveq #0,d1
  7716. .nn2
  7717.  move.b d2,PLR2_GunFrame
  7718.  
  7719.  ble.s .donefire2
  7720.  sub.b #1,PLR2_GunFrame
  7721. .donefire2:
  7722.  
  7723.  tst.b DOANYWATER
  7724.  beq.s nowaterfull
  7725.  
  7726.  move.w #231,d0
  7727.  move.l FASTBUFFER,a0
  7728.  tst.b fillscrnwater
  7729.  beq nowaterfull
  7730.  bgt oknothalf
  7731.  moveq #119,d0
  7732.  add.l #320*120*2,a0
  7733. oknothalf:
  7734.  
  7735.  bclr.b #1,$bfe001
  7736.  
  7737.  move.l TexturePal,a2
  7738.  add.l #256*40,a2
  7739.  moveq #0,d2
  7740.  
  7741.  tst.b FULLSCR
  7742.  bne.s DOALLSCREEN
  7743.  
  7744. DOSOMESCREEN:
  7745.  
  7746.  move.w #159,d0
  7747. .fw:
  7748.  move.w #191,d1
  7749. .fwa:
  7750.  move.b (a0),d2
  7751.  move.b (a2,d2.w),(a0)+
  7752.  dbra d1,.fwa
  7753.  add.w #(320-192),a0
  7754.  dbra d0,.fw
  7755.  rts
  7756.  
  7757. DOALLSCREEN:
  7758.  
  7759. fw:
  7760.  move.w #287,d1
  7761. fwa:
  7762.  move.b (a0),d2
  7763.  move.b (a2,d2.w),(a0)+
  7764.  dbra d1,fwa
  7765.  add.w #32,a0
  7766.  dbra d0,fw
  7767.  
  7768. ; move.l frompt,a0
  7769. ; add.l #104*4*60,a0
  7770. ; 
  7771. ; move.w #31,d0
  7772. ;fw:
  7773. ; move.w d5,d1
  7774. ; move.l a0,a1
  7775. ;fwd:
  7776. ;val SET 104*4*19
  7777. ; REPT 20
  7778. ; and.w #$ff,val(a1)
  7779. ;val SET val-104*4
  7780. ; ENDR
  7781. ; sub.l #104*4*20,a1
  7782. ; dbra d1,fwd
  7783. ; addq #4,a0
  7784. ; dbra d0,fw
  7785. ;
  7786. ; addq #4,a0
  7787. ;
  7788. ; move.w #31,d0
  7789. ;sw:
  7790. ; move.w d5,d1
  7791. ; move.l a0,a1
  7792. ;swd:
  7793. ;val SET 104*4*19
  7794. ; REPT 20
  7795. ; and.w #$ff,val(a1)
  7796. ;val SET val-104*4
  7797. ; ENDR
  7798. ; sub.l #104*4*20,a1
  7799. ; dbra d1,swd
  7800. ; addq #4,a0
  7801. ; dbra d0,sw
  7802. ;
  7803. ; addq #4,a0
  7804. ;
  7805. ; move.w #31,d0
  7806. ;tw:
  7807. ; move.w d5,d1
  7808. ; move.l a0,a1
  7809. ;twd:
  7810. ;val SET 104*4*19
  7811. ; REPT 20
  7812. ; and.w #$ff,val(a1)
  7813. ;val SET val-104*4
  7814. ; ENDR
  7815. ; sub.l #104*4*20,a1
  7816. ; dbra d1,twd
  7817. ; addq #4,a0
  7818. ; dbra d0,tw
  7819. ;
  7820.  rts
  7821.  
  7822. nowaterfull:
  7823.  bset.b #1,$bfe001
  7824.  rts
  7825.  
  7826. prot9: dc.w 0
  7827.  
  7828. ;TempBuffer: ds.l 100 
  7829.  
  7830. prot8: dc.w 0
  7831.  
  7832. ClipTable: ds.l 30
  7833. EndOfClipPt: dc.l 0
  7834. DOUPPER: dc.w 0
  7835.  
  7836. RealTable:
  7837.  dc.l prot1-78935450
  7838.  dc.l prot2-78935450
  7839.  dc.l prot3-78935450
  7840.  dc.l prot4-78935450
  7841.  dc.l prot5-78935450
  7842.  dc.l prot6-78935450
  7843.  dc.l prot7-78935450
  7844.  dc.l prot8-78935450
  7845.  dc.l prot9-78935450
  7846.  dc.l protA-78935450
  7847.  
  7848. dothisroom
  7849.  
  7850.  move.w (a0)+,d0
  7851.  move.w d0,currzone
  7852.  move.w d0,d1
  7853.  muls #40,d1
  7854.  add.l #BIGMAP,d1
  7855.  move.l d1,BIGPTR
  7856.  move.w d0,d1
  7857.  ext.l d1
  7858.  asl.w #2,d1
  7859.  add.l #COMPACTMAP,d1
  7860.  move.l d1,COMPACTPTR
  7861.  add.l #4,d1
  7862.  cmp.l LASTZONE,d1
  7863.  ble.s .nochange
  7864.  move.l d1,LASTZONE
  7865. .nochange:
  7866.  
  7867.  move.l #ZoneBrightTable,a1
  7868.  move.l (a1,d0.w*4),d1
  7869.  tst.b DOUPPER
  7870.  bne.s .okbot
  7871.  swap d1
  7872. .okbot:
  7873.  move.w d1,ZoneBright
  7874.  
  7875. polyloop:
  7876.  move.w (a0)+,d0
  7877.  move.w d0,WALLIDENT
  7878.  and.w #$ff,d0
  7879.  tst.b d0
  7880.  blt jumpoutofloop
  7881.  beq itsawall
  7882.  cmp.w #3,d0
  7883.  beq itsasetclip
  7884.  blt itsafloor
  7885.  cmp.w #4,d0
  7886.  beq itsanobject
  7887.  cmp.w #5,d0
  7888.  beq itsanarc
  7889.  cmp.w #6,d0
  7890.  beq itsalightbeam
  7891.  cmp.w #7,d0
  7892.  beq.s itswater
  7893.  cmp.w #9,d0
  7894.  ble itsachunkyfloor
  7895.  cmp.w #11,d0
  7896.  ble itsabumpyfloor
  7897.  cmp.w #12,d0
  7898.  beq.s itsbackdrop
  7899.  cmp.w #13,d0
  7900.  beq.s itsaseewall
  7901.  
  7902.  bra polyloop
  7903.  
  7904. itsaseewall:
  7905.  st seethru
  7906.  jsr itsawalldraw
  7907.  bra polyloop
  7908.  
  7909. itsbackdrop:
  7910.  jsr putinbackdrop
  7911.  bra polyloop
  7912.  
  7913. itswater:
  7914.  PROTHCHECK
  7915.  move.w #2,SMALLIT
  7916.  move.w #3,d0
  7917.  clr.b gourfloor
  7918.  move.l #FloorLine,LineToUse
  7919.  st usewater
  7920.  clr.b usebumps
  7921.  jsr itsafloordraw
  7922.  bra polyloop
  7923.  
  7924. itsanarc:
  7925.  jsr CurveDraw
  7926.  bra polyloop
  7927.  
  7928. itsanobject:
  7929.  jsr ObjDraw
  7930.  bra polyloop
  7931.  
  7932. itsalightbeam:
  7933.  jsr LightDraw
  7934.  bra polyloop
  7935.  
  7936. itsabumpyfloor:
  7937.  move.w #1,SMALLIT
  7938.  sub.w #9,d0
  7939.  st usebumps
  7940.  st smoothbumps
  7941.  clr.b usewater
  7942.  move.l #BumpLine,LineToUse
  7943.  jsr itsafloordraw
  7944.  bra polyloop
  7945.  
  7946. itsachunkyfloor:
  7947.  move.w #1,SMALLIT
  7948.  subq.w #7,d0
  7949.  st usebumps
  7950.  sub.w #12,topclip
  7951. ; add.w #10,botclip
  7952.  clr.b smoothbumps
  7953.  clr.b usewater
  7954.  move.l #BumpLine,LineToUse
  7955.  jsr itsafloordraw
  7956.  add.w #12,topclip
  7957. ; sub.w #10,botclip
  7958.  bra polyloop 
  7959.  
  7960. itsafloor:
  7961.  
  7962.  move.l PointBrightsPtr,FloorPtBrights
  7963.  
  7964.  move.w currzone,d1
  7965.  muls #80,d1
  7966.  
  7967.  cmp.w #2,d0
  7968.  bne.s .nfl
  7969.  add.l #2,d1
  7970. .nfl
  7971.  add.l d1,FloorPtBrights
  7972.  
  7973.  move.w #1,SMALLIT
  7974.  
  7975.  movem.l a0/d0,-(a7)
  7976.  move.l $4.w,a6
  7977.  jsr _LVOSuperState(a6)
  7978.  move.l d0,SSTACK
  7979.  movem.l (a7)+,a0/d0
  7980.  
  7981.  move.l #FloorLine,LineToUse
  7982. * 1,2 = floor/roof
  7983.  clr.b usewater
  7984.  clr.b usebumps
  7985.  move.b GOURSEL,gourfloor    
  7986.  jsr itsafloordraw
  7987.  move.l a0,-(a7)
  7988.  move.l $4.w,a6
  7989.  move.l SSTACK,d0
  7990.  jsr _LVOUserState(a6)
  7991.  move.l (a7)+,a0
  7992.  bra polyloop
  7993. itsasetclip:
  7994.  bra polyloop
  7995. itsawall:
  7996.  clr.b seethru
  7997. ; move.l #stripbuffer,a1
  7998.  jsr itsawalldraw
  7999.  bra polyloop
  8000.  
  8001. jumpoutofloop:
  8002.  rts
  8003.  
  8004. LASTZONE: dc.l 0
  8005. COMPACTPTR: dc.l 0
  8006. BIGPTR: dc.l 0
  8007. WALLIDENT: dc.w 0
  8008. SMALLIT: dc.w 0
  8009. GOURSEL: dc.w 0
  8010. ThisRoomToDraw: dc.l 0,0
  8011. SplitHeight: dc.l 0
  8012.  
  8013.  include "ab3:source_4000/OrderZones"
  8014.  
  8015. ReadMouse:
  8016.  move.l #$dff000,a6
  8017.  clr.l d0
  8018.  clr.l d1
  8019.  move.w $a(a6),d0
  8020.  lsr.w #8,d0
  8021.  ext.l d0
  8022.  move.w d0,d3
  8023.  move.w oldmy,d2
  8024.  sub.w d2,d0
  8025.  
  8026.  cmp.w #127,d0
  8027.  blt nonegy
  8028.  move.w #255,d1
  8029.  sub.w d0,d1
  8030.  move.w d1,d0
  8031.  neg.w d0
  8032. nonegy:
  8033.  
  8034.  cmp.w #-127,d0
  8035.  bge nonegy2
  8036.  move.w #255,d1
  8037.  add.w d0,d1
  8038.  move.w d1,d0
  8039. nonegy2:
  8040.  
  8041.  add.b d0,d2
  8042.  add.w d0,oldy2
  8043.  move.w d2,oldmy
  8044.  move.w d2,d0
  8045.  
  8046.  move.w oldy2,d0
  8047.  move.w d0,ymouse
  8048.  
  8049.  clr.l d0
  8050.  clr.l d1
  8051.  move.w $a(a6),d0
  8052.  ext.w d0
  8053.  ext.l d0
  8054.  move.w d0,d3
  8055.  move.w oldmx,d2
  8056.  sub.w d2,d0
  8057.  
  8058.  cmp.w #127,d0
  8059.  blt nonegx
  8060.  move.w #255,d1
  8061.  sub.w d0,d1
  8062.  move.w d1,d0
  8063.  neg.w d0
  8064. nonegx:
  8065.  
  8066.  cmp.w #-127,d0
  8067.  bge nonegx2
  8068.  move.w #255,d1
  8069.  add.w d0,d1
  8070.  move.w d1,d0
  8071. nonegx2:
  8072.  
  8073.  add.b d0,d2
  8074.  move.w d0,d1
  8075.  move.w d2,oldmx
  8076.  
  8077.  move.w #$0,$dff034
  8078.  
  8079.  add.w d0,oldx2
  8080.  move.w oldx2,d0
  8081.  and.w #2047,d0
  8082.  move.w d0,oldx2
  8083.  
  8084.  asl.w #2,d0
  8085.  sub.w prevx,d0
  8086.  add.w d0,prevx
  8087.  add.w d0,angpos
  8088.  move.w #0,lrs
  8089.  rts
  8090.  
  8091. noturn:
  8092.  
  8093. ; got to move lr instead. 
  8094.  
  8095. ; d1 = speed moved l/r
  8096.  
  8097.  move.w d1,lrs
  8098.  
  8099.  rts
  8100.  
  8101. lrs: dc.w 0
  8102. prevx: dc.w 0
  8103.  
  8104. angpos: dc.w 0
  8105. mang: dc.w 0
  8106. oldymouse: dc.w 0
  8107. xmouse: dc.w 0
  8108. ymouse: dc.w 0
  8109. oldx2: dc.w 0
  8110. oldmx: dc.w 0
  8111. oldmy: dc.w 0
  8112. oldy2: dc.w 0
  8113.  
  8114. MAPON: dc.w $0
  8115. REALMAPON: dc.w 0
  8116.  
  8117. RotateLevelPts:
  8118.  
  8119.  tst.b REALMAPON
  8120.  beq ONLYTHELONELY
  8121.  
  8122.  move.w sinval,d6
  8123.  swap d6
  8124.  move.w cosval,d6
  8125.  move.l Points,a3
  8126.  move.l #Rotated,a1
  8127.  move.l #OnScreen,a2
  8128.  move.w xoff,d4
  8129.  asr.w #1,d4
  8130.  move.w zoff,d5
  8131.  asr.w #1,d5
  8132. ; move.w #$c40,$dff106
  8133. ; move.w #$f00,$dff180
  8134.  
  8135.  move.w NumLevPts,d7
  8136.  
  8137.  tst.b FULLSCR
  8138.  bne BIGALL
  8139.  
  8140. pointrotlop2:
  8141.  move.w (a3)+,d0
  8142.  asr.w #1,d0
  8143.  sub.w d4,d0
  8144.  move.w d0,d2
  8145.  move.w (a3)+,d1
  8146.  asr.w #1,d1
  8147.  sub.w d5,d1
  8148.  muls d6,d2
  8149.  swap d6
  8150.  move.w d1,d3
  8151.  muls d6,d3
  8152.  sub.l d3,d2
  8153. ; add.l d2,d2
  8154. ; swap d2
  8155. ; ext.l d2
  8156. ; asl.l #7,d2
  8157.  
  8158.  asr.l #7,d2
  8159.  
  8160.  add.l xwobble,d2
  8161.  move.l d2,(a1)+
  8162.  
  8163.  muls d6,d0
  8164.  swap d6
  8165.  muls d6,d1
  8166.  add.l d0,d1
  8167. ; asl.l #2,d1
  8168. ; swap d1
  8169.  
  8170.  asr.l #8,d1
  8171.  asr.l #6,d1
  8172.  
  8173.  move.l d1,(a1)+
  8174.  
  8175.  tst.l d1
  8176.  bgt.s ptnotbehind
  8177.  tst.l d2
  8178.  bgt.s onrightsomewhere
  8179.  move.w #0,d2
  8180.  bra putin
  8181. onrightsomewhere:
  8182.  move.w RIGHTX,d2
  8183.  ext.l d2
  8184.  bra putin
  8185. ptnotbehind:
  8186.  
  8187.  divs.l d1,d2
  8188.  move.w MIDDLEX,d1
  8189.  ext.l d1
  8190.  add.l d1,d2
  8191. putin:
  8192.  move.w d2,(a2)+
  8193.  
  8194.  dbra d7,pointrotlop2
  8195. outofpointrot:
  8196.   rts
  8197.  
  8198.  
  8199. BIGALL:
  8200.  
  8201. pointrotlop2B:
  8202.  move.w (a3)+,d0
  8203.  asr.w #1,d0
  8204.  sub.w d4,d0
  8205.  move.w d0,d2
  8206.  move.w (a3)+,d1
  8207.  asr.w #1,d1
  8208.  sub.w d5,d1
  8209.  muls d6,d2
  8210.  swap d6
  8211.  move.w d1,d3
  8212.  muls d6,d3
  8213.  sub.l d3,d2
  8214. ; add.l d2,d2
  8215. ; swap d2
  8216. ; ext.l d2
  8217. ; asl.l #7,d2
  8218.  asr.l #7,d2
  8219.  add.l xwobble,d2
  8220.  move.l d2,(a1)+
  8221.  
  8222.  muls d6,d0
  8223.  swap d6
  8224.  muls d6,d1
  8225.  add.l d0,d1
  8226.  
  8227.  divs.l #3,d1
  8228.  asr.l #8,d1
  8229.  asr.l #5,d1
  8230.  
  8231. ; asl.l #3,d1
  8232. ; swap d1
  8233. ; ext.l d1
  8234. ; divs #3,d1
  8235.  move.l d1,(a1)+
  8236.  
  8237.  tst.l d1
  8238.  bgt.s ptnotbehindB
  8239.  tst.l d2
  8240.  bgt.s onrightsomewhereB
  8241.  move.l #0,d2
  8242.  bra putinB
  8243. onrightsomewhereB:
  8244.  move.w RIGHTX,d2
  8245.  ext.l d2
  8246.  bra putinB
  8247. ptnotbehindB:
  8248.  
  8249.  divs.l d1,d2
  8250.  move.w MIDDLEX,d1
  8251.  ext.l d1
  8252.  add.l d1,d2
  8253. putinB:
  8254.  move.w d2,(a2)+
  8255.  
  8256.  dbra d7,pointrotlop2B
  8257.   rts
  8258.  
  8259.  
  8260. ONLYTHELONELY:
  8261.  
  8262.  move.w sinval,d6
  8263.  swap d6
  8264.  move.w cosval,d6
  8265.  
  8266.  move.l PointsToRotatePtr,a0
  8267.  move.l Points,a3
  8268.  move.l #Rotated,a1
  8269.  move.l #OnScreen,a2
  8270.  move.w xoff,d4
  8271.  move.w zoff,d5
  8272.  
  8273. ; move.w #$c40,$dff106
  8274. ; move.w #$f00,$dff180
  8275.  
  8276.  tst.b FULLSCR
  8277.  bne BIGLONELY
  8278.  
  8279. pointrotlop:
  8280.  move.w (a0)+,d7
  8281.  blt outofpointrot
  8282.  
  8283.  move.w (a3,d7*4),d0
  8284.  sub.w d4,d0
  8285.  move.w d0,d2
  8286.  move.w 2(a3,d7*4),d1
  8287.  sub.w d5,d1
  8288.  muls d6,d2
  8289.  swap d6
  8290.  move.w d1,d3
  8291.  muls d6,d3
  8292.  sub.l d3,d2
  8293.  add.l d2,d2
  8294.  swap d2
  8295.  ext.l d2
  8296.  asl.l #7,d2
  8297.  add.l xwobble,d2
  8298.  move.l d2,(a1,d7*8)
  8299.  
  8300.  muls d6,d0
  8301.  swap d6
  8302.  muls d6,d1
  8303.  add.l d0,d1
  8304.  asl.l #1,d1
  8305.  swap d1
  8306. ; ext.l d1
  8307. ; divs #3,d1
  8308.  move.l d1,4(a1,d7*8)
  8309.  
  8310.  tst.w d1
  8311.  bgt.s .ptnotbehind
  8312.  tst.w d2
  8313.  bgt.s .onrightsomewhere
  8314.  move.w #0,d2
  8315.  bra .putin
  8316. .onrightsomewhere:
  8317.  move.w RIGHTX,d2
  8318.  bra .putin
  8319. .ptnotbehind:
  8320.  
  8321.  divs d1,d2
  8322.  add.w MIDDLEX,d2
  8323. .putin:
  8324.  move.w d2,(a2,d7*2)
  8325.  
  8326.  bra pointrotlop
  8327.  
  8328. ; move.w #$c40,$dff106
  8329. ; move.w #$ff0,$dff180
  8330.  
  8331.  rts
  8332.  
  8333. BIGLONELY:
  8334.  
  8335. .pointrotlop:
  8336.  move.w (a0)+,d7
  8337.  blt.s .outofpointrot
  8338.  
  8339.  move.w (a3,d7*4),d0
  8340.  sub.w d4,d0
  8341.  move.w d0,d2
  8342.  move.w 2(a3,d7*4),d1
  8343.  sub.w d5,d1
  8344.  muls d6,d2
  8345.  swap d6
  8346.  move.w d1,d3
  8347.  muls d6,d3
  8348.  sub.l d3,d2
  8349.  add.l d2,d2
  8350.  swap d2
  8351.  ext.l d2
  8352.  asl.l #7,d2
  8353.  add.l xwobble,d2
  8354.  move.l d2,(a1,d7*8)
  8355.  
  8356.  muls d6,d0
  8357.  swap d6
  8358.  muls d6,d1
  8359.  add.l d0,d1
  8360.  asl.l #2,d1
  8361.  swap d1
  8362.  ext.l d1
  8363.  divs #3,d1
  8364.  move.l d1,4(a1,d7*8)
  8365.  
  8366.  tst.w d1
  8367.  bgt.s .ptnotbehind
  8368.  tst.w d2
  8369.  bgt.s .onrightsomewhere
  8370.  move.w #0,d2
  8371.  bra .putin
  8372. .onrightsomewhere:
  8373.  move.w RIGHTX,d2
  8374.  bra .putin
  8375. .ptnotbehind:
  8376.  
  8377.  divs d1,d2
  8378.  add.w MIDDLEX,d2
  8379. .putin:
  8380.  move.w d2,(a2,d7*2)
  8381.  
  8382.  bra .pointrotlop
  8383.  
  8384. .outofpointrot:
  8385. ; move.w #$c40,$dff106
  8386. ; move.w #$ff0,$dff180
  8387.  
  8388.  rts
  8389.  
  8390.  
  8391. PLR1_ObjDists
  8392.  ds.w 250
  8393. PLR2_ObjDists
  8394.  ds.w 250
  8395. PLR3_ObjDists
  8396.  ds.w 250
  8397.  
  8398. CalcPLR1InLine:
  8399.  
  8400.  move.w PLR1_sinval,d5
  8401.  move.w PLR1_cosval,d6
  8402.  move.l ObjectData,a4
  8403.  move.l ObjectPoints,a0
  8404.  move.w NumObjectPoints,d7
  8405.  move.l #PLR1_ObsInLine,a2
  8406.  move.l #PLR1_ObjDists,a3
  8407.  
  8408. .objpointrotlop:
  8409.  
  8410.  cmp.b #3,16(a4)
  8411.  beq.s .itaux
  8412.  
  8413.  move.w (a0),d0
  8414.  sub.w PLR1_xoff,d0
  8415.  move.w 4(a0),d1
  8416.  addq #8,a0
  8417.  
  8418.  tst.w 12(a4)
  8419.  blt .noworkout
  8420.  
  8421.  moveq #0,d2
  8422.  move.b 16(a4),d2
  8423.  ;move.l #ColBoxTable,a6
  8424.  ;lea (a6,d2.w*8),a6
  8425.  
  8426.  sub.w PLR1_zoff,d1
  8427.  move.w d0,d2
  8428.  muls d6,d2
  8429.  move.w d1,d3
  8430.  muls d5,d3
  8431.  sub.l d3,d2
  8432.  add.l d2,d2
  8433.  
  8434.  bgt.s .okh
  8435.  neg.l d2
  8436. .okh:
  8437.  swap d2
  8438.  
  8439.  muls d5,d0
  8440.  muls d6,d1
  8441.  add.l d0,d1
  8442.  asl.l #2,d1
  8443.  swap d1
  8444.  moveq #0,d3
  8445.  
  8446.  tst.w d1
  8447.  ble.s .notinline
  8448.  asr.w #1,d2
  8449.  cmp.w #80,d2
  8450.  bgt.s .notinline
  8451.  
  8452.  st d3
  8453. .notinline
  8454.  move.b d3,(a2)+
  8455.  
  8456.  move.w d1,(a3)+
  8457.  
  8458.  add.w #64,a4
  8459.  dbra d7,.objpointrotlop
  8460.  
  8461.  rts
  8462.  
  8463. .itaux:
  8464.  add.w #64,a4
  8465.  bra .objpointrotlop
  8466.  
  8467. .noworkout:
  8468.  move.b #0,(a2)+
  8469.  move.w #0,(a3)+
  8470.  add.w #64,a4
  8471.  dbra d7,.objpointrotlop
  8472.  rts
  8473.  
  8474.  
  8475. CalcPLR2InLine:
  8476.  
  8477.  move.w PLR2_sinval,d5
  8478.  move.w PLR2_cosval,d6
  8479.  move.l ObjectData,a4
  8480.  move.l ObjectPoints,a0
  8481.  move.w NumObjectPoints,d7
  8482.  move.l #PLR2_ObsInLine,a2
  8483.  move.l #PLR2_ObjDists,a3
  8484.  
  8485. .objpointrotlop:
  8486.  
  8487.  cmp.b #3,16(a4)
  8488.  beq.s .itaux
  8489.  
  8490.  move.w (a0),d0
  8491.  sub.w PLR2_xoff,d0
  8492.  move.w 4(a0),d1
  8493.  addq #8,a0
  8494.  
  8495.  tst.w 12(a4)
  8496.  blt .noworkout
  8497.  
  8498.  moveq #0,d2
  8499.  move.b 16(a4),d2
  8500. ; move.l #ColBoxTable,a6
  8501. ; lea (a6,d2.w*8),a6
  8502.  
  8503.  sub.w PLR2_zoff,d1
  8504.  move.w d0,d2
  8505.  muls d6,d2
  8506.  move.w d1,d3
  8507.  muls d5,d3
  8508.  sub.l d3,d2
  8509.  add.l d2,d2
  8510.  
  8511.  bgt.s .okh
  8512.  neg.l d2
  8513. .okh:
  8514.  swap d2
  8515.  
  8516.  muls d5,d0
  8517.  muls d6,d1
  8518.  add.l d0,d1
  8519.  asl.l #2,d1
  8520.  swap d1
  8521.  moveq #0,d3
  8522.  
  8523.  tst.w d1
  8524.  ble.s .notinline
  8525.  asr.w #1,d2
  8526.  cmp.w (a6),d2
  8527.  bgt.s .notinline
  8528.  
  8529.  st d3
  8530. .notinline
  8531.  move.b d3,(a2)+
  8532.  
  8533.  move.w d1,(a3)+
  8534.  
  8535.  add.w #64,a4
  8536.  dbra d7,.objpointrotlop
  8537.  
  8538.  rts
  8539.  
  8540. .itaux:
  8541.  add.w #64,a4
  8542.  bra .objpointrotlop
  8543.  
  8544. .noworkout:
  8545.  move.w #0,(a3)+
  8546.  move.b #0,(a2)+
  8547.  add.w #64,a4
  8548.  dbra d7,.objpointrotlop
  8549.  rts
  8550.  
  8551.  
  8552.  
  8553. CalcPLR3InLine:
  8554.  
  8555.  move.w PLR3_sinval,d5
  8556.  move.w PLR3_cosval,d6
  8557.  move.l ObjectData,a4
  8558.  move.l ObjectPoints,a0
  8559.  move.w NumObjectPoints,d7
  8560.  move.l #PLR3_ObsInLine,a2
  8561.  move.l #PLR3_ObjDists,a3
  8562.  
  8563. .objpointrotlop:
  8564.  
  8565.  cmp.b #3,16(a4)
  8566.  beq.s .itaux
  8567.  
  8568.  move.w (a0),d0
  8569.  sub.w PLR3_xoff,d0
  8570.  move.w 4(a0),d1
  8571.  addq #8,a0
  8572.  
  8573.  tst.w 12(a4)
  8574.  blt .noworkout
  8575.  
  8576.  moveq #0,d2
  8577.  move.b 16(a4),d2
  8578. ; move.l #ColBoxTable,a6
  8579. ; lea (a6,d2.w*8),a6
  8580.  
  8581.  sub.w PLR3_zoff,d1
  8582.  move.w d0,d2
  8583.  muls d6,d2
  8584.  move.w d1,d3
  8585.  muls d5,d3
  8586.  sub.l d3,d2
  8587.  add.l d2,d2
  8588.  
  8589.  bgt.s .okh
  8590.  neg.l d2
  8591. .okh:
  8592.  swap d2
  8593.  
  8594.  muls d5,d0
  8595.  muls d6,d1
  8596.  add.l d0,d1
  8597.  asl.l #2,d1
  8598.  swap d1
  8599.  moveq #0,d3
  8600.  
  8601.  tst.w d1
  8602.  ble.s .notinline
  8603.  asr.w #1,d2
  8604.  cmp.w (a6),d2
  8605.  bgt.s .notinline
  8606.  
  8607.  st d3
  8608. .notinline
  8609.  move.b d3,(a2)+
  8610.  
  8611.  move.w d1,(a3)+
  8612.  
  8613.  add.w #64,a4
  8614.  dbra d7,.objpointrotlop
  8615.  
  8616.  rts
  8617.  
  8618. .itaux:
  8619.  add.w #64,a4
  8620.  bra .objpointrotlop
  8621.  
  8622. .noworkout:
  8623.  move.w #0,(a3)+
  8624.  move.b #0,(a2)+
  8625.  add.w #64,a4
  8626.  dbra d7,.objpointrotlop
  8627.  rts
  8628.  
  8629.  
  8630. RotateObjectPts:
  8631.  
  8632.  move.w sinval,d5
  8633.  move.w cosval,d6
  8634.  
  8635.  move.l ObjectData,a4
  8636.  move.l ObjectPoints,a0
  8637.  move.w NumObjectPoints,d7
  8638.  move.l #ObjRotated,a1
  8639.  
  8640.  tst.b FULLSCR
  8641.  bne BIGOBJPTS
  8642.  
  8643.  
  8644. .objpointrotlop:
  8645.  
  8646.  cmp.b #3,16(a4)
  8647.  beq.s .itaux
  8648.  
  8649.  move.w (a0),d0
  8650.  sub.w xoff,d0
  8651.  move.w 4(a0),d1
  8652.  addq #8,a0
  8653.  
  8654.  tst.w 12(a4)
  8655.  blt .noworkout
  8656.  
  8657.  sub.w zoff,d1
  8658.  
  8659.  move.w d0,d2
  8660.  muls d6,d2
  8661.  move.w d1,d3
  8662.  muls d5,d3
  8663.  sub.l d3,d2
  8664.  
  8665.  
  8666.  add.l d2,d2
  8667.  swap d2
  8668.  move.w d2,(a1)+
  8669.  
  8670.  muls d5,d0
  8671.  muls d6,d1
  8672.  add.l d0,d1
  8673.  asl.l #1,d1
  8674.  swap d1
  8675. ; ext.l d1
  8676. ; divs #3,d1
  8677.  moveq #0,d3
  8678.  
  8679.  move.w d1,(a1)+
  8680.  ext.l d2
  8681.  asl.l #7,d2
  8682.  add.l xwobble,d2
  8683.  move.l d2,(a1)+
  8684.  
  8685.  dbra d7,.objpointrotlop
  8686.  
  8687.  rts
  8688.  
  8689. .itaux:
  8690.  add.w #64,a4
  8691.  bra .objpointrotlop
  8692.  
  8693. .noworkout:
  8694.   move.l #0,(a1)+
  8695.   move.l #0,(a1)+
  8696.   add.w #64,a4
  8697.   dbra d7,.objpointrotlop
  8698.   rts
  8699.   
  8700. BIGOBJPTS:
  8701.  
  8702. .objpointrotlop:
  8703.  
  8704.  cmp.b #3,16(a4)
  8705.  beq.s .itaux
  8706.  
  8707.  move.w (a0),d0
  8708.  sub.w xoff,d0
  8709.  move.w 4(a0),d1
  8710.  addq #8,a0
  8711.  
  8712.  tst.w 12(a4)
  8713.  blt .noworkout
  8714.  
  8715.  sub.w zoff,d1
  8716.  move.w d0,d2
  8717.  muls d6,d2
  8718.  move.w d1,d3
  8719.  muls d5,d3
  8720.  sub.l d3,d2
  8721.  
  8722.  
  8723.  add.l d2,d2
  8724.  swap d2
  8725.  move.w d2,(a1)+
  8726.  
  8727.  muls d5,d0
  8728.  muls d6,d1
  8729.  add.l d0,d1
  8730.  asl.l #2,d1
  8731.  swap d1
  8732.  ext.l d1
  8733.  divs #3,d1
  8734.  moveq #0,d3
  8735.  
  8736.  move.w d1,(a1)+
  8737.  ext.l d2
  8738.  asl.l #7,d2
  8739.  add.l xwobble,d2
  8740.  move.l d2,(a1)+
  8741.  sub.l xwobble,d2
  8742.  
  8743.  add.w #64,a4
  8744.  dbra d7,.objpointrotlop
  8745.  
  8746.  rts
  8747.  
  8748. .itaux:
  8749.  add.w #64,a4
  8750.  bra .objpointrotlop
  8751.  
  8752. .noworkout:
  8753.   move.l #0,(a1)+
  8754.   move.l #0,(a1)+
  8755.   add.w #64,a4
  8756.   dbra d7,.objpointrotlop
  8757.   rts
  8758.  
  8759. LightDraw:
  8760.  
  8761.  move.w (a0)+,d0
  8762.  move.w (a0)+,d1
  8763.  move.l #Rotated,a1
  8764.  move.w 6(a1,d0.w*8),d2
  8765.  ble.s oneendbehind
  8766.  move.w 6(a1,d1.w*8),d3
  8767.  bgt.s bothendsinfront
  8768.  
  8769. oneendbehind:
  8770.  rts
  8771. bothendsinfront:
  8772.  
  8773.  move.l #OnScreen,a2
  8774.  move.w (a2,d0.w*2),d0
  8775.  bge.s okleftend
  8776.  moveq #0,d0
  8777. okleftend:
  8778.  move.w (a2,d1.w*2),d1
  8779.  bgt.s somevis
  8780.  rts
  8781. somevis:
  8782.  cmp.w RIGHTX,d0
  8783.  blt.s somevis2
  8784.  rts
  8785. somevis2:
  8786.  cmp.w RIGHTX,d1
  8787.  blt.s okrightend
  8788.  move.w RIGHTX,d1
  8789.  subq #1,d1
  8790. okrightend:
  8791.  
  8792.  sub.w d0,d1
  8793.  blt.s wrongbloodywayround
  8794.  move.l TexturePal,a4
  8795.  move.l #objintocop,a1
  8796.  lea (a1,d0.w*2),a1
  8797.  
  8798.  move.l frompt,a3
  8799.  move.w #104*4,d6
  8800.  move.w #79,d2
  8801. lacross:
  8802.  move.w d2,d3
  8803.  move.l a3,a2
  8804.  adda.w (a1)+,a2
  8805. ldown:
  8806.  add.w d6,a2
  8807.  move.w (a2),d7
  8808.  move.w (a4,d7.w*2),(a2)
  8809.  dbra d3,ldown
  8810.  dbra d1,lacross
  8811.  
  8812. wrongbloodywayround:
  8813.  
  8814.  rts
  8815.  
  8816. FaceToPlace: dc.w 0
  8817.  
  8818. Cheese:
  8819.  dc.w 4,15
  8820.  
  8821. FacesList:
  8822.  dc.w 0,4*4
  8823.  dc.w 1,2*4
  8824.  dc.w 0,2*4
  8825.  dc.w 2,2*4
  8826.  dc.w 0,2*4
  8827.  dc.w 1,3*4
  8828.  dc.w 0,2*4
  8829.  dc.w 2,3*4
  8830.  dc.w 0,5*4
  8831.  dc.w 1,2*4
  8832.  dc.w 0,2*4
  8833.  dc.w 2,2*4
  8834.  dc.w 0,2*4
  8835.  dc.w 1,2*4
  8836.  dc.w 0,2*4
  8837.  dc.w 2,3*4
  8838.  dc.w 0,1*4
  8839.  dc.w 1,3*4
  8840.  dc.w 0,1*4
  8841.  dc.w 2,3*4
  8842.  dc.w 0,1*4
  8843.  
  8844. EndOfFacesList:
  8845.  
  8846. FacesPtr:
  8847.  dc.l FacesList
  8848. FacesCounter:
  8849.  dc.w 0
  8850. Expression:
  8851.  dc.w 0
  8852.  
  8853.  
  8854. Energy:
  8855.  dc.w 191
  8856. OldEnergy:
  8857.  dc.w 191
  8858. Ammo: dc.w 63
  8859. OldAmmo: dc.w 63
  8860.  
  8861. FullEnergy:
  8862. ; move.w #127,Energy
  8863. ; move.w #127,OldEnergy
  8864. ; move.l #health,a0
  8865. ; move.l #borders,a1
  8866. ; add.l #25*8*2+6,a1
  8867. ; lea 2592(a1),a2
  8868. ; move.w #127,d0
  8869. ;PutInFull:
  8870. ; move.b (a0)+,(a1)
  8871. ; move.b (a0)+,8(a1)
  8872. ; add.w #16,a1
  8873. ; move.b (a0)+,(a2)
  8874. ; move.b (a0)+,8(a2)
  8875. ; add.w #16,a2
  8876. ; dbra d0,PutInFull
  8877.  
  8878.  rts
  8879.  
  8880. ;EnergyBar:
  8881.  
  8882.  move.w Energy,d0
  8883.  bgt.s .noeneg
  8884.  move.w #0,d0
  8885. .noeneg:
  8886.  move.w d0,Energy
  8887.  
  8888.  cmp.w OldEnergy,d0
  8889.  bne.s gottochange
  8890.  
  8891. NoChange
  8892.  rts
  8893.  
  8894. gottochange:
  8895.   
  8896.  blt LessEnergy
  8897.  cmp.w #127,Energy
  8898.  blt.s NotMax
  8899.  move.w #127,Energy
  8900. NotMax:
  8901.  
  8902.  move.w Energy,d0
  8903.  move.w OldEnergy,d2
  8904.  sub.w d0,d2
  8905.  beq.s NoChange    
  8906.  neg.w d2
  8907.  
  8908.  move.w #127,d3
  8909.  sub.w d0,d3
  8910.  
  8911.  move.l #health,a0
  8912.  lea (a0,d3.w*4),a0
  8913. ; move.l #borders+25*16+6,a1
  8914.  lsl.w #4,d3
  8915.  add.w d3,a1
  8916.  lea 2592(a1),a2
  8917.  
  8918. EnergyRise:
  8919.  move.b (a0)+,(a1)
  8920.  move.b (a0)+,8(a1)
  8921.  add.w #16,a1
  8922.  move.b (a0)+,(a2)
  8923.  move.b (a0)+,8(a2)
  8924.  add.w #16,a2
  8925.  subq #1,d2
  8926.  bgt.s EnergyRise
  8927.  
  8928.  move.w Energy,OldEnergy
  8929.  
  8930.  rts 
  8931.  
  8932. LessEnergy: 
  8933.  move.w OldEnergy,d2
  8934.  sub.w d0,d2
  8935.  
  8936.  move.w #127,d3
  8937.  sub.w OldEnergy,d3
  8938.  
  8939. ; move.l #borders+25*16+6,a1
  8940.  asl.w #4,d3
  8941.  add.w d3,a1
  8942.  lea 2592(a1),a2
  8943.  
  8944. EnergyDrain:
  8945.  move.b #0,(a1)
  8946.  move.b #0,8(a1)
  8947.  move.b #0,(a2)
  8948.  move.b #0,8(a2)
  8949.  add.w #16,a1
  8950.  add.w #16,a2
  8951.  subq #1,d2
  8952.  bgt.s EnergyDrain
  8953.  
  8954.  move.w Energy,OldEnergy
  8955.  
  8956.  rts 
  8957.  
  8958. firstdigit: dc.b 0
  8959. secdigit: dc.b 0
  8960. thirddigit: dc.b 0
  8961.  
  8962.  even
  8963.  
  8964. gunny: dc.w 0
  8965.  
  8966. AmmoBar:
  8967.  
  8968. * Do guns first.
  8969.  
  8970.  move.l #borderchars,a4
  8971.  move.b p1_gunselected,d0 
  8972.  move.l #PLAYERONEGUNS,a5
  8973.  cmp.b #'s',mors
  8974.  bne.s .notplr2
  8975.  move.l #PLAYERTWOGUNS,a5
  8976.  move.b p2_gunselected,d0
  8977. .notplr2:
  8978.  
  8979.  move.b d0,gunny
  8980.  
  8981.  move.w #9,d2
  8982.  moveq #0,d0
  8983. putingunnums:
  8984.  move.w #4,d1
  8985.  move.l a4,a0
  8986.  cmp.b gunny,d0
  8987.  bne.s .notsel
  8988.  add.l #5*10*8*2,a0
  8989.  addq #2,a5
  8990.  bra.s .donesel
  8991. .notsel:
  8992.  tst.w (a5)+
  8993.  beq.s .donesel
  8994.  add.l #5*10*8,a0
  8995. .donesel:
  8996.  move.l SCRNDRAWPT,a1
  8997.  add.w d0,a1
  8998.  add.l #3+(240*40),a1
  8999.  bsr DRAWDIGIT
  9000.  addq #1,d0
  9001.  dbra d2,putingunnums
  9002.  
  9003.  move.w Ammo,d0
  9004.  
  9005.  cmp.w #999,d0
  9006.  blt.s .okammo
  9007.  move.w #999,d0 
  9008. .okammo
  9009.  
  9010.  
  9011.  ext.l d0
  9012.  divs #10,d0
  9013.  swap d0
  9014.  move.b d0,thirddigit
  9015.  swap d0
  9016.  ext.l d0
  9017.  divs #10,d0
  9018.  move.b d0,firstdigit
  9019.  swap d0
  9020.  move.b d0,secdigit
  9021.  
  9022.  move.l #borderchars+15*8*10,a0
  9023.  cmp.w #10,Ammo
  9024.  blt.s .notsmallamo
  9025.  add.l #7*8*10,a0
  9026. .notsmallamo:
  9027.  
  9028.  move.l SCRNDRAWPT,a1
  9029.  add.l #20+238*40,a1
  9030.  move.b firstdigit,d0
  9031.  move.w #6,d1
  9032.  bsr DRAWDIGIT
  9033.  
  9034.  move.l SCRNDRAWPT,a1
  9035.  add.l #21+238*40,a1
  9036.  move.b secdigit,d0
  9037.  move.w #6,d1
  9038.  bsr DRAWDIGIT
  9039.  
  9040.  move.l SCRNDRAWPT,a1
  9041.  add.l #22+238*40,a1
  9042.  move.b thirddigit,d0
  9043.  move.w #6,d1
  9044.  bsr DRAWDIGIT
  9045.  
  9046.  rts
  9047.  
  9048. EnergyBar:
  9049.  move.w Energy,d0
  9050.  bge.s .okpo
  9051.  moveq #0,d0 
  9052. .okpo:
  9053.  
  9054.  cmp.w #999,d0
  9055.  blt.s .okenergy
  9056.  move.w #999,d0 
  9057. .okenergy
  9058.  
  9059.  
  9060.  ext.l d0
  9061.  divs #10,d0
  9062.  swap d0
  9063.  move.b d0,thirddigit
  9064.  swap d0
  9065.  ext.l d0
  9066.  divs #10,d0
  9067.  move.b d0,firstdigit
  9068.  swap d0
  9069.  move.b d0,secdigit
  9070.  
  9071.  move.l #borderchars+15*8*10,a0
  9072.  cmp.w #10,Energy
  9073.  blt.s .notsmallamo
  9074.  add.l #7*8*10,a0
  9075. .notsmallamo:
  9076.  
  9077.  move.l SCRNDRAWPT,a1
  9078.  add.l #34+238*40,a1
  9079.  move.b firstdigit,d0
  9080.  move.w #6,d1
  9081.  bsr DRAWDIGIT
  9082.  
  9083.  move.l SCRNDRAWPT,a1
  9084.  add.l #35+238*40,a1
  9085.  move.b secdigit,d0
  9086.  move.w #6,d1
  9087.  bsr DRAWDIGIT
  9088.  
  9089.  move.l SCRNDRAWPT,a1
  9090.  add.l #36+238*40,a1
  9091.  move.b thirddigit,d0
  9092.  move.w #6,d1
  9093.  bsr DRAWDIGIT
  9094.  
  9095.  move.l SCRNSHOWPT,a1
  9096.  add.l #34+238*40,a1
  9097.  move.b firstdigit,d0
  9098.  move.w #6,d1
  9099.  bsr DRAWDIGIT
  9100.  
  9101.  move.l SCRNSHOWPT,a1
  9102.  add.l #35+238*40,a1
  9103.  move.b secdigit,d0
  9104.  move.w #6,d1
  9105.  bsr DRAWDIGIT
  9106.  
  9107.  move.l SCRNSHOWPT,a1
  9108.  add.l #36+238*40,a1
  9109.  move.b thirddigit,d0
  9110.  move.w #6,d1
  9111.  bsr DRAWDIGIT
  9112.  
  9113.  
  9114.  rts
  9115.  
  9116.  
  9117. DRAWDIGIT:
  9118.  ext.w d0
  9119.  lea (a0,d0.w),a2
  9120. charlines:
  9121.  lea 30720(a1),a3 
  9122.  move.b (a2),(a1)
  9123.  move.b 10(a2),10240(a1)
  9124.  move.b 20(a2),20480(a1)
  9125.  move.b 30(a2),(a3)
  9126.  move.b 40(a2),10240(a3)
  9127.  move.b 50(a2),20480(a3)
  9128.  lea 30720(a3),a3
  9129.  move.b 60(a2),(a3)
  9130.  move.b 70(a2),10240(a3)
  9131.  
  9132.  add.w #10*8,a2
  9133.  add.w #40,a1
  9134.  dbra d1,charlines
  9135.  
  9136.  rts
  9137.  
  9138. borderchars: incbin "ab3:includes/bordercharsRAW"
  9139.  
  9140. NARRATOR:
  9141.  
  9142. ; sub.w #1,NARRTIME
  9143. ; bge .NOCHARYET
  9144. ; move.w #3,NARRTIME
  9145.  
  9146.  move.l #SCROLLSCRN,d1
  9147.  move.w d1,scroll
  9148.  swap d1
  9149.  move.w d1,scrolh
  9150.  
  9151.  move.w SCROLLTIMER,d0
  9152.  subq #1,d0
  9153.  move.w d0,SCROLLTIMER
  9154.  cmp.w #40,d0
  9155.  bge .NOCHARYET
  9156.  tst.w d0
  9157.  bge.s .okcha
  9158.  
  9159.  move.w #150,SCROLLTIMER
  9160.  bra .NOCHARYET
  9161.  
  9162. .okcha:
  9163.  
  9164.  move.l #SCROLLSCRN,a0
  9165.  add.w SCROLLXPOS,a0
  9166.  
  9167.  moveq #1,d7
  9168. .doachar: 
  9169.  
  9170.  move.l SCROLLPOINTER,a1
  9171.  moveq #0,d1
  9172.  move.b (a1)+,d1    ; character
  9173.  move.l a1,d2
  9174.  cmp.l ENDSCROLL,d2
  9175.  blt.s .notrestartscroll
  9176.  move.l #BLANKSCROLL,a1
  9177.  move.l #BLANKSCROLL+80,ENDSCROLL
  9178. .notrestartscroll
  9179.  move.l a1,SCROLLPOINTER
  9180.  
  9181.  move.l #SCROLLCHARS,a1
  9182.  asl.w #3,d1
  9183.  add.w d1,a1
  9184.  
  9185.  move.b (a1)+,(a0)
  9186.  move.b (a1)+,80(a0)
  9187.  move.b (a1)+,80*2(a0)
  9188.  move.b (a1)+,80*3(a0)
  9189.  move.b (a1)+,80*4(a0)
  9190.  move.b (a1)+,80*5(a0)
  9191.  move.b (a1)+,80*6(a0)
  9192.  move.b (a1)+,80*7(a0)
  9193.  
  9194.  addq #1,a0
  9195.  dbra d7,.doachar
  9196.  
  9197.  move.w SCROLLXPOS,d0
  9198.  addq #2,d0
  9199.  move.w d0,SCROLLXPOS
  9200.  cmp.w #80,d0
  9201.  blt .NOCHARYET
  9202.  move.w #0,SCROLLXPOS
  9203.  
  9204. .NOCHARYET:
  9205.  rts
  9206.  
  9207. ; cmp.w OldAmmo,d0
  9208. ; bne.s .gottochange
  9209. ; 
  9210.  
  9211. NARRTIME: dc.w 5
  9212.  
  9213. SCROLLCHARS: incbin "ab3:includes/scrollfont"
  9214.  
  9215. .NoChange
  9216.  rts
  9217.  
  9218. .gottochange:
  9219.   
  9220.  blt LessAmmo
  9221.  cmp.w #63,Ammo
  9222.  blt.s .NotMax
  9223.  move.w #63,Ammo
  9224. .NotMax:
  9225.  
  9226.  move.w Ammo,d0
  9227.  move.w OldAmmo,d2
  9228.  sub.w d0,d2
  9229.  beq.s .NoChange
  9230.  neg.w d2
  9231.  
  9232.  move.w #63,d3
  9233.  sub.w d0,d3
  9234.  
  9235.  move.l #Ammunition,a0
  9236.  lea (a0,d3.w*8),a0
  9237. ; move.l #borders+5184+25*16+1,a1
  9238.  lsl.w #5,d3
  9239.  add.w d3,a1
  9240.  lea 2592(a1),a2
  9241.  
  9242. AmmoRise:
  9243.  move.b (a0)+,(a1)
  9244.  move.b (a0)+,8(a1)
  9245.  add.w #16,a1
  9246.  move.b (a0)+,(a2)
  9247.  move.b (a0)+,8(a2)
  9248.  add.w #16,a2
  9249.  move.b (a0)+,(a1)
  9250.  move.b (a0)+,8(a1)
  9251.  add.w #16,a1
  9252.  move.b (a0)+,(a2)
  9253.  move.b (a0)+,8(a2)
  9254.  add.w #16,a2
  9255.  subq #1,d2
  9256.  bgt.s AmmoRise
  9257.  
  9258.  move.w Ammo,OldAmmo
  9259.  
  9260.  rts 
  9261.  
  9262.  
  9263. LessAmmo: 
  9264.  move.w OldAmmo,d2
  9265.  sub.w d0,d2
  9266.  
  9267.  move.w #63,d3
  9268.  sub.w OldAmmo,d3
  9269.  
  9270. ; move.l #borders++5184+25*16+1,a1
  9271.  asl.w #5,d3
  9272.  add.w d3,a1
  9273.  lea 2592(a1),a2
  9274.  
  9275. AmmoDrain:
  9276.  move.b #0,(a1)
  9277.  move.b #0,8(a1)
  9278.  move.b #0,(a2)
  9279.  move.b #0,8(a2)
  9280.  add.w #16,a1
  9281.  add.w #16,a2
  9282.  move.b #0,(a1)
  9283.  move.b #0,8(a1)
  9284.  move.b #0,(a2)
  9285.  move.b #0,8(a2)
  9286.  add.w #16,a1
  9287.  add.w #16,a2
  9288.  subq #1,d2
  9289.  bgt.s AmmoDrain
  9290.  
  9291.  move.w Ammo,OldAmmo
  9292.  
  9293.  rts 
  9294.  
  9295. nulop:
  9296.  move.w #$0010,$dff000+intreq
  9297.  rte
  9298.  
  9299. doanything: dc.w 0
  9300.  
  9301. end:
  9302. ;     _break #0
  9303.  
  9304.  move.l #$dff000,a6
  9305.  clr.b dosounds
  9306.  clr.b doanything
  9307. waitfortop22:
  9308.  btst.b #0,intreqrl(a6)
  9309.  beq waitfortop22
  9310. waitfortop222:
  9311.  btst.b #0,intreqrl(a6)
  9312.  beq waitfortop222
  9313.  move.w #$f,$dff000+dmacon
  9314.  
  9315.  
  9316.  move.w PLAYERONEHEALTH,Energy
  9317.  cmp.b #'s',mors
  9318.  bne.s .notsl
  9319.  move.w PLAYERTWOHEALTH,Energy
  9320. .notsl:
  9321.  
  9322.  move.l drawpt,d0
  9323.  move.l olddrawpt,drawpt
  9324.  move.l d0,olddrawpt
  9325.  
  9326. ; cmp.b #'b',Prefsfile+3
  9327. ; bne.s .noback
  9328. ; jsr mt_end
  9329. ;.noback
  9330.  
  9331.  tst.w Energy
  9332.  bgt.s wevewon
  9333.  move.w #0,Energy
  9334.  bsr EnergyBar
  9335.  
  9336.  move.l #gameover,mt_data
  9337.  st UseAllChannels
  9338.  clr.b reachedend
  9339.  jsr mt_init
  9340. playgameover:
  9341.  move.l #$dff000,a6
  9342. waitfortop2:
  9343.  
  9344.     
  9345.  btst.b #0,intreqrl(a6)
  9346.  beq waitfortop2
  9347.  move.w #$1,intreq(a6)
  9348.  
  9349.     
  9350.  jsr mt_music
  9351.  
  9352.  
  9353.     
  9354.  tst.b reachedend
  9355.  beq.s playgameover
  9356.  
  9357.  bra wevelost
  9358.  
  9359.  
  9360. wevewon:
  9361.  
  9362.  move.w #$f,$dff000+dmacon
  9363.  
  9364.  bsr EnergyBar
  9365.  
  9366.  cmp.b #'n',mors
  9367.  bne.s .nonextlev
  9368.  add.w #1,MAXLEVEL
  9369.  st FINISHEDLEVEL
  9370.  
  9371. .nonextlev:
  9372.  
  9373.  move.l #welldone,mt_data
  9374.  st UseAllChannels
  9375.  clr.b reachedend
  9376.  
  9377.  jsr mt_init
  9378. playwelldone:
  9379.  move.l #$dff000,a6
  9380. waitfortop3:
  9381.  btst.b #0,intreqrl(a6)
  9382.  beq waitfortop3
  9383.  move.w #$1,intreq(a6)
  9384.  
  9385.  jsr mt_music
  9386.  
  9387.  tst.b reachedend
  9388.  beq.s playwelldone
  9389.  
  9390.  cmp.b #'n',mors
  9391.  bne.s wevelost
  9392.  cmp.w #16,MAXLEVEL
  9393.  bne.s wevelost
  9394.  
  9395.  jmp ENDGAMESCROLL
  9396.  
  9397. wevelost:
  9398.  
  9399.  move.w #$f,$dff000+dmacon
  9400.  PROTICHECK a0
  9401.  
  9402.  jmp closeeverything 
  9403.  
  9404. endnomusic
  9405.  clr.b doanything
  9406.  
  9407.  
  9408. ; cmp.b #'b',Prefsfile+3
  9409. ; bne.s .noback
  9410. ; jsr mt_end
  9411. ;.noback
  9412. *******************************
  9413. ; cmp.b #'n',mors
  9414. ; bne.s .nonextlev
  9415. ; cmp.w #15,MAXLEVEL
  9416. ; bge.s .nonextlev
  9417. ; add.w #1,MAXLEVEL
  9418. ; st FINISHEDLEVEL
  9419. ;.nonextlev:
  9420. ******************************
  9421.  
  9422.  jmp closeeverything
  9423.  
  9424. do32:
  9425.  move.w #31,d7
  9426.  move.w #$180,d1
  9427. across:
  9428.  move.w d1,(a1)+
  9429.  move.w d1,(a3)+
  9430.  move.w #0,(a1)+ 
  9431.  move.w #0,(a3)+
  9432.  add.w #2,d1
  9433.  dbra d7,across
  9434.  rts
  9435.  
  9436. ;string:
  9437. ;    dc.b    'credits',0
  9438.  
  9439. ENDGAMESCROLL:
  9440.  move.l LEVELMUSIC,mt_data
  9441.  clr.b UseAllChannels
  9442.  jsr mt_init
  9443.  
  9444.  move.w #$fff,MIXCOLL
  9445.  
  9446.  move.w #$1cc1,BOTOFTXT
  9447.  
  9448.  jsr CLRTWEENSCRN
  9449.  
  9450.  move.l #TEXTCOP,$dff080
  9451.  
  9452.  move.l #ENDGAMETEXTy,a0
  9453.  
  9454.  
  9455. SCROLLUP16LINES:
  9456.  
  9457.  move.w #15,d0
  9458.  
  9459. do16
  9460.  move.l #$dff000,a6
  9461.  
  9462.  move.w #0,d6
  9463.  move.w #7,d7
  9464.  
  9465.  move.l #SCROLLSHADES,a5
  9466.  
  9467. fadeupp:
  9468.  
  9469.  move.w (a5,d6.w*2),TOPCOLL
  9470.  move.w (a5,d7.w*2),TXTCOLL
  9471.  
  9472.  
  9473. .wtup
  9474.  btst #5,intreqrl(a6)
  9475.  beq.s .wtup
  9476.  move.w #$20,intreq(a6)
  9477.  
  9478.  jsr mt_music
  9479.  
  9480.  add.w #1,d6
  9481.  sub.w #1,d7
  9482.  bne fadeupp
  9483.  
  9484. .wtup2
  9485.  btst #5,intreqrl(a6)
  9486.  beq.s .wtup2
  9487.  move.w #$20,intreq(a6)
  9488.  
  9489.  move.w #0,TOPCOLL
  9490.  move.w #$fff,TXTCOLL
  9491.  
  9492.  WB
  9493.  
  9494.  move.l TEXTSCRN,d1
  9495.  move.l d1,bltdpt(a6)
  9496.  add.l #80,d1
  9497.  move.l d1,bltapt(a6)
  9498.  move.w #$09f0,bltcon0(a6)
  9499.  move.w #$0,bltcon1(a6)
  9500.  move.w #0,bltdmod(a6)
  9501.  move.w #0,bltamod(a6)
  9502.  move.l #-1,bltafwm(a6)
  9503.  
  9504.  move.w #255*64+40,bltsize(a6)
  9505.  
  9506.  WB
  9507.  
  9508.  dbra d0,do16
  9509.  
  9510.  move.l TEXTSCRN,a1
  9511.  move.w #15,d0
  9512.  jsr DRAWLINEOFTEXT
  9513.  
  9514.  add.l #82,a0
  9515.  cmp.l #ENDENDGAMETEXT,a0
  9516.  blt SCROLLUP16LINES
  9517.  
  9518.  move.l #ENDGAMETEXTy,a0
  9519.  bra SCROLLUP16LINES
  9520.  
  9521. SCROLLSHADES:
  9522.  dc.w 0
  9523.  dc.w $333
  9524.  dc.w $666
  9525.  dc.w $888
  9526.  dc.w $aaa
  9527.  dc.w $ccc
  9528.  dc.w $ddd
  9529.  dc.w $eee
  9530.  
  9531. ENDGAMETEXTy:
  9532. ;          12345678901234567890123456789012345678901234567890123456789012345678901234567890
  9533.  dc.b 0,0,"                                                                                "
  9534.  dc.b 0,1,"As the beast and its four servants die, a breathless silence falls, broken      "
  9535.  dc.b 0,1,"only by the hammering of my own heart in my chest.                              "
  9536.  dc.b 0,1,"I run to the now open exit, and out into the maze of corridors through which I  "
  9537.  dc.b 0,1,"came. I encounter many, many aliens, lying twitching on the ground, or utterly  "
  9538.  dc.b 0,1,"still with glazed eyes and green froth drying on their lips. Many seem to have  "
  9539.  dc.b 0,1,"turned their weapons on themselves, unable to bear either the pain or the       "
  9540.  dc.b 0,1,"sudden silence in their minds.                                                  "
  9541.  dc.b 0,0,"                                                                                "
  9542.  dc.b 0,1,"It takes me several hours to locate a working teleport to take me back aboard   "
  9543.  dc.b 0,1,"the orbiting alien ship. The scene there is the same; hordes of aliens, either  "
  9544.  dc.b 0,1,"dead or catatonic, I cannot tell.                                               "
  9545.  dc.b 0,1,"I walk slowly, exhausted, back to the INDOMITABLE, averting my eyes from the    "
  9546.  dc.b 0,1,"pitiful scenes around me. I know that my work is not finished yet.              "
  9547.  dc.b 0,1,"Once aboard, I make my way to the bridge. I manage to restart the main power    "
  9548.  dc.b 0,1,"generators and get basic navigation back on-line. Working from the memories     "
  9549.  dc.b 0,1,"implanted by the dying marine, I painstakingly program the computer to deal     "
  9550.  dc.b 0,1,"the killing blow to the enemy. At last the task is finished. The ship hums into "
  9551.  dc.b 0,1,"life, accellerating slowly out of orbit, towing the massive alien craft and     "
  9552.  dc.b 0,1,"its mindless cargo behind it.                                                   "
  9553.  dc.b 0,1,"As the image of the alien sun grows in the viewscreen, I think about what I     "
  9554.  dc.b 0,1,"have seen. Fragments of technology, stolen from civilisations - how long ago?   "
  9555.  dc.b 0,1,"How long since they were exterminated by these parasites? And how many more     "
  9556.  dc.b 0,1,"if they are allowed to continue?                                                "
  9557.  dc.b 0,1,"The sun looms hideously large before me, seeming at the last moment to slip to  "
  9558.  dc.b 0,1,"one side as the cruiser slingshots itself through the immense gravity well,     "
  9559.  dc.b 0,1,"its speed doubling and doubling again. The ship shudders and groans as the      "
  9560.  dc.b 0,1,"ponderous mass of the alien ship tries to tear itself free. I feel a distant    "
  9561.  dc.b 0,1,"twinge of curiosity as to whether it will succeed.                              "
  9562.  dc.b 0,1,"The navigation computer chatters quietly to itself as it makes tiny             "
  9563.  dc.b 0,1,"course corrections, bringing the payload to bear on its target. I only sit,     "
  9564.  dc.b 0,1,"watching blankly as we hurtle back towards the planet. The navicom beeps        "
  9565.  dc.b 0,1,"quietly to signal the blowing of the explosive bolts holding the docking ring.  "
  9566.  dc.b 0,1,"So great is our speed that the alien ship does not receed, but simply vanishes  "
  9567.  dc.b 0,1,"from sight, tracked only on the readouts of the computers in front of me.       "
  9568.  dc.b 0,1,"One readout in particular occupies my attention. Red numbers spin towards zero  "
  9569.  dc.b 0,1,"as my invisible agent of destruction spins towards oblivion. Three digits, now  "
  9570.  dc.b 0,1,"two, and now only one. I shift my attention to the image of the alien world,    "
  9571.  dc.b 0,1,"receeding behind my ship.                                                       "
  9572.  dc.b 0,0,"                                                                                "
  9573.  dc.b 0,1,"Three...                                                                        "
  9574.  dc.b 0,0,"                                                                                "
  9575.  dc.b 0,1,"Two...                                                                          "
  9576.  dc.b 0,0,"                                                                                "
  9577.  dc.b 0,1,"One...                                                                          "
  9578.  dc.b 0,0,"                                                                                "
  9579.  dc.b 0,1,"Zero.                                                                           "
  9580.  dc.b 0,0,"                                                                                "
  9581.  dc.b 0,0,"                                                                                "
  9582.  dc.b 0,0,"                                                                                "
  9583.  dc.b 0,0,"                                                                                "
  9584.  dc.b 0,1,"Travelling at nearly a quarter of the speed of light, the alien ship smashed    "
  9585.  dc.b 0,1,"into the planet, flashing past the useless orbital defences which should have   "
  9586.  dc.b 0,1,"neutralized it millions of miles earlier. It passed through the twenty miles    "
  9587.  dc.b 0,1,"of atmosphere in a little more than one ten-thousandth of a second. The air     "
  9588.  dc.b 0,1,"directly beneath had no time to be pushed out of the way, and in another        "
  9589.  dc.b 0,1,"tenth of a second it was a molecule-thick layer a thousand miles below the      "
  9590.  dc.b 0,1,"planet's surface.                                                               "
  9591.  dc.b 0,1,"Such was the heat and pressure caused by the impact, that part of the molten    "
  9592.  dc.b 0,1,"core of the planet underwent nuclear fusion, vapourising thousands of billions  "
  9593.  dc.b 0,1,"of tonnes of surrounding material. This expanding superhot plasma cloud forced  "
  9594.  dc.b 0,1,"its way up through the mantle and crust, fracturing the surface of the planet,  "
  9595.  dc.b 0,1,"blowing continent-sized chunks into space and heating the tortured atmosphere   "
  9596.  dc.b 0,1,"to ignition point. Within two minutes of impact, the doomed planet was a        "
  9597.  dc.b 0,1,"misshapen, incandescent ball, with burning fragments spinning deceptively       "
  9598.  dc.b 0,1,"slowly in their brief orbits before re-impacting with fantastic, majestic       "
  9599.  dc.b 0,1,"force.                                                                          "
  9600.  dc.b 0,0,"                                                                                "
  9601.  dc.b 0,0,"                                                                                "
  9602.  dc.b 0,0,"                                                                                "
  9603.  dc.b 0,0,"                                                                                "
  9604.  dc.b 0,1,"In a matter of weeks, the small amount of matter which had undergone fusion     "
  9605.  dc.b 0,1,"burned itself out, but the planet still glowed sullenly from a million cracks   "
  9606.  dc.b 0,1,"and holes in the crust, as it would continue to do for millions of years to     "
  9607.  dc.b 0,1,"come. The world was barren and dead, and the creatures who once roamed its      "
  9608.  dc.b 0,1,"surface no more than a memory in the mind of one man, sleeping dreamlessly      "
  9609.  dc.b 0,1,"as the invisible speck of his ship sped silently on, towards home.              "
  9610.  dc.b 0,0,"                                                                                "
  9611.  dc.b 0,0,"                                                                                "
  9612.  dc.b 0,0,"                                                                                "
  9613.  dc.b 0,0,"                                                                                "
  9614.  dc.b 0,0,"                                                                                "
  9615.  dc.b 0,0,"                                                                                "
  9616.  dc.b 0,0,"                                                                                "
  9617.  dc.b 0,0,"                                                                                "
  9618.  dc.b 0,0,"                                                                                "
  9619.  dc.b 0,0,"                                                                                "
  9620.  dc.b 0,0,"                                                                                "
  9621.  dc.b 0,0,"                                                                                "
  9622.  dc.b 0,0,"                                                                                "
  9623.  dc.b 0,0,"                                                                                "
  9624.  dc.b 0,0,"                                                                                "
  9625.  dc.b 0,0,"                                                                                "
  9626.  dc.b 0,1,"ALIEN BREED 3D II                                                               "
  9627.  dc.b 0,1,"THE KILLING GROUNDS                                                             "
  9628.  dc.b 0,0,"                                                                                "
  9629.  dc.b 0,0,"                                                                                "
  9630.  dc.b 0,1,"A Team 17 Game                                                                  "
  9631.  dc.b 0,0,"                                                                                "
  9632.  dc.b 0,1,"Produced in association with OCEAN Software                                     "
  9633.  dc.b 0,0,"                                                                                "
  9634.  dc.b 0,0,"                                                                                "
  9635.  dc.b 0,1,"Game Design, Game Code, Editor Code and In-Game Text                            "
  9636.  dc.b 0,0,"                                                                                "
  9637.  dc.b 0,1,"Andrew Clitheroe                                                                "
  9638.  dc.b 0,0,"                                                                                "
  9639.  dc.b 0,0,"                                                                                "
  9640.  dc.b 0,1,"Graphics                                                                        "
  9641.  dc.b 0,0,"                                                                                "
  9642.  dc.b 0,1,"Michael Green                                                                   "
  9643.  dc.b 0,0,"                                                                                "
  9644.  dc.b 0,0,"                                                                                "
  9645.  dc.b 0,1,"3D Object Designs, 3D Editors, Serial and OS code                               "
  9646.  dc.b 0,0,"                                                                                "
  9647.  dc.b 0,1,"Charles Blessing                                                                "
  9648.  dc.b 0,0,"                                                                                "
  9649.  dc.b 0,0,"                                                                                "
  9650.  dc.b 0,1,"Music                                                                           "
  9651.  dc.b 0,0,"                                                                                "
  9652.  dc.b 0,1,"Ben Chanter                                                                     "
  9653.  dc.b 0,0,"                                                                                "
  9654.  dc.b 0,0,"                                                                                "
  9655.  dc.b 0,1,"Project Manager                                                                 "
  9656.  dc.b 0,0,"                                                                                "
  9657.  dc.b 0,1,"Phil Quirke-Webster                                                             "
  9658.  dc.b 0,0,"                                                                                "
  9659.  dc.b 0,0,"                                                                                "
  9660.  dc.b 0,1,"Playtesting                                                                     "
  9661.  dc.b 0,0,"                                                                                "
  9662.  dc.b 0,1,"Phil and the Wolves                                                             "
  9663.  dc.b 0,0,"                                                                                "
  9664.  dc.b 0,0,"                                                                                "
  9665.  dc.b 0,1,"Additional Graphics                                                             "
  9666.  dc.b 0,0,"                                                                                "
  9667.  dc.b 0,1,"Pete Lyons                                                                      "
  9668.  dc.b 0,0,"                                                                                "
  9669.  dc.b 0,0,"                                                                                "
  9670.  
  9671.  
  9672. ENDENDGAMETEXT:
  9673.  
  9674.  
  9675. ;
  9676. ;    move.l    4.w,a6
  9677. ;    move.l    #string,d1
  9678. ;    moveq    #0,d2
  9679. ;    moveq    #0,d3
  9680. ;    jsr    _LVOExecute(a6)
  9681.  
  9682. ; include "endscroll.s"
  9683.  
  9684. ***********************************
  9685.  include "ab3:source_4000/CD32JOY"
  9686.  
  9687.  
  9688.  
  9689. *************************************
  9690. * Set left and right clip values
  9691. *************************************
  9692.  
  9693.  
  9694.  
  9695. NEWsetlclip:
  9696.  move.l #OnScreen,a1
  9697.  move.l #Rotated,a2
  9698.  move.l CONNECT_TABLE,a3
  9699.  move.l Points,a4
  9700.  
  9701.  move.w (a0),d0
  9702.  bge.s .notignoreleft
  9703.  
  9704. ; move.l #0,(a6)
  9705.  
  9706.  bra .leftnotoktoclip
  9707. .notignoreleft:
  9708.  
  9709.  move.w 6(a2,d0*8),d3    ; left z val
  9710.  bgt.s .leftclipinfront
  9711.  addq #2,a0
  9712.  rts
  9713.  
  9714.  tst.w 6(a2,d0*8)
  9715.  bgt.s .leftnotoktoclip
  9716. .ignoreboth:
  9717. ; move.l #0,(a6)
  9718. ; move.l #96*65536,4(a6)
  9719.  move.w #0,leftclip
  9720.  move.w RIGHTX,rightclip
  9721.  addq #8,a6
  9722.  addq #2,a0
  9723.  rts
  9724.  
  9725. .leftclipinfront:
  9726.  move.w (a1,d0*2),d1    ; left x on screen
  9727.  move.w (a0),d2
  9728.  move.w 2(a3,d2.w*4),d2
  9729.  move.w (a1,d2.w*2),d2
  9730.  cmp.w d1,d2
  9731.  bgt.s .leftnotoktoclip
  9732.  
  9733.  
  9734. *************************************
  9735.  
  9736. ; move.w 2(a3,d0.w*4),d6
  9737. ; 
  9738. ; move.w (a4,d0.w*4),d2
  9739. ; move.w 2(a4,d0.w*4),d3
  9740. ; move.w (a4,d6.w*4),d4
  9741. ; move.w 2(a4,d6.w*4),d5
  9742. ;
  9743. ; sub.w d2,d4    ;dx
  9744. ; sub.w d3,d5    ;dz
  9745. ; move.w xoff,d0
  9746. ; move.w zoff,d6
  9747. ; 
  9748. ; sub.w d2,d0
  9749. ; sub.w d3,d6
  9750. ; 
  9751. ; muls d0,d4
  9752. ; muls d6,d5
  9753. ; add.l d4,d5
  9754. ; bge.s .leftnotoktoclip
  9755.  
  9756. *************************************
  9757.  
  9758.  
  9759.  
  9760. ; move.w d1,(a6)
  9761. ; move.w d3,2(a6)
  9762.  cmp.w leftclip,d1
  9763.  ble.s .leftnotoktoclip
  9764.  move.w d1,leftclip
  9765. .leftnotoktoclip:
  9766.  
  9767.  addq #2,a0
  9768.  
  9769.  rts
  9770.  
  9771. NEWsetrclip
  9772.  move.l #OnScreen,a1
  9773.  move.l #Rotated,a2
  9774.  move.l CONNECT_TABLE,a3
  9775.  move.w (a0),d0
  9776.  bge.s .notignoreright
  9777. ; move.w #96,4(a6)
  9778. ; move.w #0,6(a6)
  9779.  move.w #0,d4
  9780.  bra .rightnotoktoclip
  9781. .notignoreright:
  9782.  move.w 6(a2,d0*8),d4    ; right z val
  9783.  bgt.s .rightclipinfront
  9784. ; move.w #96,4(a6)
  9785. ; move.w #0,6(a6)
  9786.  bra.s .rightnotoktoclip
  9787.  
  9788. .rightclipinfront:
  9789.  move.w (a1,d0*2),d1    ; right x on screen
  9790.  move.w (a0),d2
  9791.  move.w (a3,d2.w*4),d2
  9792.  move.w (a1,d2.w*2),d2
  9793.  cmp.w d1,d2
  9794.  blt.s .rightnotoktoclip
  9795. ; move.w d1,4(a6)
  9796. ; move.w d4,6(a6)
  9797.  
  9798.  
  9799. *************************************
  9800.  
  9801. ; move.w (a3,d0.w*4),d6
  9802. ; 
  9803. ; move.w (a4,d0.w*4),d2
  9804. ; move.w 2(a4,d0.w*4),d3
  9805. ; move.w (a4,d6.w*4),d4
  9806. ; move.w 2(a4,d6.w*4),d5
  9807. ;
  9808. ; sub.w d2,d4    ;dx
  9809. ; sub.w d3,d5    ;dz
  9810. ; move.w xoff,d0
  9811. ; move.w zoff,d6
  9812. ; 
  9813. ; sub.w d2,d0
  9814. ; sub.w d3,d6
  9815. ; 
  9816. ; muls d0,d4
  9817. ; muls d6,d5
  9818. ; add.l d4,d5
  9819. ; ble.s .rightnotoktoclip
  9820.  
  9821. *************************************
  9822.  
  9823.  
  9824.  
  9825.  cmp.w rightclip,d1
  9826.  bge.s .rightnotoktoclip
  9827.  addq #1,d1
  9828.  move.w d1,rightclip
  9829. .rightnotoktoclip:
  9830.  addq #8,a6
  9831.  addq #2,a0
  9832.  rts
  9833.  
  9834. FIRSTsetlrclip:
  9835.  move.l #OnScreen,a1
  9836.  move.l #Rotated,a2
  9837.  
  9838.  move.w (a0)+,d0
  9839.  bge.s .notignoreleft
  9840.  bra .leftnotoktoclip
  9841. .notignoreleft:
  9842.  
  9843.  move.w 6(a2,d0*8),d3    ; left z val
  9844.  bgt.s .leftclipinfront
  9845.  
  9846.  move.w (a0),d0
  9847.  blt.s .ignoreboth
  9848.  tst.w 6(a2,d0*8)
  9849.  bgt.s .leftnotoktoclip
  9850. .ignoreboth
  9851.  move.w RIGHTX,rightclip
  9852.  move.w #0,leftclip
  9853.  addq #2,a0
  9854.  rts
  9855.  
  9856. .leftclipinfront:
  9857.  move.w (a1,d0*2),d1    ; left x on screen
  9858.  cmp.w leftclip,d1
  9859.  ble.s .leftnotoktoclip
  9860.  move.w d1,leftclip
  9861. .leftnotoktoclip:
  9862.  
  9863.  move.w (a0)+,d0
  9864.  bge.s .notignoreright
  9865.  move.w #0,d4
  9866.  bra .rightnotoktoclip
  9867. .notignoreright:
  9868.  move.w 6(a2,d0*8),d4    ; right z val
  9869.  ble.s .rightnotoktoclip
  9870.  
  9871. .rightclipinfront:
  9872.  move.w (a1,d0*2),d1    ; right x on screen
  9873.  addq #1,d1
  9874.  cmp.w rightclip,d1
  9875.  bge.s .rightnotoktoclip
  9876.  move.w d1,rightclip
  9877. .rightnotoktoclip:
  9878.  
  9879. ; move.w leftclip,d0
  9880. ; move.w rightclip,d1
  9881. ; cmp.w d0,d1
  9882. ; bge.s .noswap
  9883. ; move.w #192,rightclip
  9884. ; move.w #0,leftclip
  9885. ;.noswap:
  9886.  
  9887.  rts
  9888.  
  9889.  
  9890. leftclip2: dc.w 0
  9891. rightclip2: dc.w 0
  9892. ZoneBright: dc.w 0
  9893.  
  9894. npolys: dc.w 0
  9895.  
  9896. PLR1_fire: dc.b 0
  9897. PLR2_fire: dc.b 0
  9898. PLR3_fire: dc.b 0
  9899.  
  9900. *****************************************************
  9901.  
  9902.  
  9903. pastdata:
  9904. ***********************************
  9905. * This routine animates brightnesses.
  9906.  
  9907.  
  9908. liftpt: dc.l liftanimtab
  9909.  
  9910. brightpt:
  9911.  dc.l brightanimtab
  9912.  
  9913.  
  9914. liftanim:
  9915.  rts
  9916.  
  9917. ******************************
  9918.  include "ab3:source_4000/ObjectMove"
  9919.  include "ab3:source_4000/MultiAnims"
  9920.  include "ab3:source_4000/airoutine.s"
  9921. ******************************
  9922. startpass:
  9923. ; include "ab3:source_4000/password_reloc.s"
  9924. endpass:
  9925.  
  9926. rotanimpt: dc.w 0
  9927. xradd: dc.w 5
  9928. yradd: dc.w 8
  9929. xrpos: dc.w 320
  9930. yrpos: dc.w 320
  9931.  
  9932. rotanim:
  9933.  rts
  9934.  
  9935. option:
  9936.  dc.l 0,0
  9937.  
  9938. ********** WALL STUFF *******************************
  9939.  
  9940.  include "AB3:source_4000/hireswall.s"
  9941.  include "AB3:source_4000/hiresgourwall.s"
  9942.  
  9943. *****************************************************
  9944.  
  9945. ******************************************
  9946. * floor polygon
  9947.  
  9948. numsidestd: dc.w 0
  9949. bottomline: dc.w 0
  9950.  
  9951. checkforwater:
  9952.  tst.b usewater
  9953.  beq.s .notwater
  9954.  
  9955.  move.l Roompt,a1
  9956.  move.w (a1),d7
  9957.  cmp.w currzone,d7
  9958.  bne.s .notwater
  9959.  
  9960.  move.b #$f,fillscrnwater
  9961.  
  9962. .notwater:
  9963.  move.w (a0)+,d6    ; sides-1
  9964.  add.w d6,d6
  9965.  add.w d6,a0
  9966.  add.w #4+6,a0
  9967.  rts
  9968.  
  9969.  rts
  9970.  
  9971. ;NewCornerBuff:
  9972. ; ds.l 100
  9973. CLRNOFLOOR: dc.w 0
  9974.  
  9975. itsafloordraw:
  9976.  
  9977. * If D0 =1 then its a floor otherwise (=2) it's
  9978. * a roof.
  9979.  
  9980.  move.w #0,above
  9981.  move.w (a0)+,d6    ; ypos of poly
  9982.  
  9983.  tst.b usewater
  9984.  beq.s .oknon
  9985.  tst.b DOANYWATER
  9986.  beq dontdrawreturn
  9987. .oknon
  9988.  
  9989.  move.w d6,d7
  9990.  ext.l d7
  9991.  asl.l #6,d7
  9992.  cmp.l TOPOFROOM,d7
  9993.  blt checkforwater
  9994.  cmp.l BOTOFROOM,d7
  9995.  bgt.s dontdrawreturn
  9996.  
  9997.  move.w leftclip,d7
  9998.  cmp.w rightclip,d7
  9999.  bge.s dontdrawreturn
  10000.  
  10001.  sub.w flooryoff,d6
  10002.  bgt.s below
  10003.  blt.s aboveplayer
  10004.  
  10005.  tst.b usewater
  10006.  beq.s .notwater
  10007.  
  10008.  move.l Roompt,a1
  10009.  move.w (a1),d7
  10010.  cmp.w currzone,d7
  10011.  
  10012.  bne.s .notwater
  10013.  
  10014.  st fillscrnwater
  10015.  
  10016. .notwater:
  10017.  
  10018.  
  10019. dontdrawreturn:
  10020.  move.w (a0)+,d6    ; sides-1
  10021.  add.w d6,d6
  10022.  add.w d6,a0
  10023.  add.w #4+6,a0
  10024.  rts
  10025. aboveplayer:
  10026.  
  10027.  tst.b usewater
  10028.  beq.s .notwater
  10029.  
  10030.  move.l Roompt,a1
  10031.  move.w (a1),d7
  10032.  cmp.w currzone,d7
  10033.  bne.s .notwater
  10034.  
  10035.  move.b #$f,fillscrnwater
  10036.  
  10037. .notwater:
  10038.  
  10039.  btst #1,d0
  10040.  beq.s dontdrawreturn
  10041.  move.w MIDDLEY,d7
  10042.  sub.w topclip,d7 
  10043.  ble.s dontdrawreturn
  10044.  move.w #1,d0
  10045.  move.w d0,above
  10046.  neg.w d6
  10047.  bra.s notbelow
  10048. below:
  10049.  move.w botclip,d7
  10050.  sub.w MIDDLEY,d7
  10051.  ble.s dontdrawreturn
  10052. notbelow:
  10053.  btst #0,d0
  10054.  beq.s dontdrawreturn
  10055.  move.w d6,distaddr
  10056.  muls #64,d6
  10057.  move.l d6,ypos
  10058.  ext.l d7
  10059.  divs.l d7,d6        ; zpos of bottom
  10060.             ; visible line
  10061.  
  10062.  beq dontdrawreturn
  10063.  
  10064.  cmp.l #32767,d6
  10065.  bgt dontdrawreturn
  10066.             
  10067.  move.w d6,minz
  10068.  move.w d7,bottomline
  10069.  
  10070. ; Go round each point finding out
  10071. ; if it should be visible or not.
  10072.  
  10073.  move.l a0,-(a7)
  10074.  
  10075.  move.w (a0)+,d7    ; number of sides
  10076.  move.l #Rotated,a1
  10077.  move.l #OnScreen,a2
  10078. ; move.l #NewCornerBuff,a3
  10079.  moveq #0,d4
  10080.  moveq #0,d5
  10081.  moveq #0,d6
  10082.  clr.b anyclipping
  10083.  
  10084. cornerprocessloop:
  10085.  
  10086.  move.w (a0)+,d0
  10087.  and.w #$fff,d0
  10088.  move.w 6(a1,d0.w*8),d1
  10089.  ble  .canttell
  10090.  
  10091.  move.w (a2,d0.w*2),d3
  10092.  cmp.w leftclip,d3
  10093.  bgt.s .nol
  10094.  st d4
  10095.  st anyclipping
  10096.  bra.s .nos
  10097. .nol:
  10098.  cmp.w rightclip,d3
  10099.  blt.s .nor
  10100.  st d6
  10101.  st anyclipping
  10102.  bra.s .nos
  10103. .nor:
  10104.  st d5
  10105. .nos:
  10106.  bra .cantell
  10107.  
  10108. .canttell:
  10109.  st d5
  10110.  st anyclipping
  10111.  
  10112. .cantell:
  10113.  
  10114.  
  10115.  dbra d7,cornerprocessloop
  10116.  
  10117.  
  10118.  move.l (a7)+,a0
  10119.  tst.b d5
  10120.  bne.s somefloortodraw
  10121.  eor.b d4,d6
  10122.  bne dontdrawreturn
  10123.  
  10124. somefloortodraw:
  10125.  
  10126.  tst.b gourfloor
  10127.  bne goursides
  10128.  
  10129.  move.w #300,top
  10130.  move.w #-1,bottom
  10131.  move.w #0,drawit
  10132.  move.l #Rotated,a1
  10133.  move.l #OnScreen,a2
  10134.  move.w (a0)+,d7    ; no of sides
  10135. sideloop:
  10136.  move.w minz,d6
  10137.  move.w (a0)+,d1
  10138.  move.w (a0),d3
  10139.  and.w #$fff,d1
  10140.  and.w #$fff,d3
  10141.  
  10142.  move.w 6(a1,d1*8),d4    ;first z
  10143.  cmp.w d6,d4
  10144.  bgt firstinfront
  10145.  move.w 6(a1,d3*8),d5    ; sec z
  10146.  cmp.w d6,d5
  10147.  ble bothbehind
  10148. ** line must be on left and partially behind.
  10149.  sub.w d5,d4
  10150.  move.l (a1,d1*8),d0
  10151.  sub.l (a1,d3*8),d0
  10152.  asr.l #7,d0
  10153.  sub.w d5,d6
  10154.  muls d6,d0    ; new x coord
  10155.  divs d4,d0
  10156.  ext.l d0
  10157.  asl.l #7,d0
  10158.  
  10159.  add.l (a1,d3*8),d0
  10160.  move.w minz,d4
  10161.  move.w (a2,d3*2),d2
  10162.  divs d4,d0
  10163.  add.w MIDDLEX,d0
  10164.  move.l ypos,d3
  10165.  divs d5,d3
  10166.  move.w bottomline,d1 
  10167.  bra lineclipped
  10168.  
  10169. firstinfront:
  10170.  move.w 6(a1,d3*8),d5    ; sec z
  10171.  cmp.w d6,d5
  10172.  bgt bothinfront
  10173. ** line must be on right and partially behind.
  10174.  sub.w d4,d5    ; dz
  10175.  move.l (a1,d3*8),d2
  10176.  sub.l (a1,d1*8),d2    ; dx
  10177.  sub.w d4,d6
  10178.  asr.l #7,d2
  10179.  muls d6,d2    ; new x coord
  10180.  divs d5,d2
  10181.  ext.l d2
  10182.  asl.l #7,d2
  10183.  add.l (a1,d1*8),d2
  10184.  move.w minz,d5
  10185.  move.w (a2,d1*2),d0
  10186.  divs d5,d2
  10187.  add.w MIDDLEX,d2
  10188.  move.l ypos,d1
  10189.  divs d4,d1
  10190.  move.w bottomline,d3 
  10191.  bra lineclipped
  10192.  
  10193. bothinfront:
  10194.  
  10195. * Also, usefully enough, both are on-screen
  10196. * so no bottom clipping is needed.
  10197.  
  10198.  move.w (a2,d1*2),d0    ; first x
  10199.  move.w (a2,d3*2),d2    ; second x
  10200.  move.l ypos,d1
  10201.  move.l d1,d3
  10202.  divs d4,d1        ; first y
  10203.  divs d5,d3        ; second y
  10204. lineclipped:
  10205.  move.l #rightsidetab,a3
  10206.  cmp.w d1,d3
  10207.  beq lineflat
  10208.  st drawit
  10209.  bgt lineonright
  10210.  move.l #leftsidetab,a3
  10211.  exg d1,d3
  10212.  exg d0,d2
  10213.  
  10214.  lea (a3,d1*2),a3
  10215.  
  10216.  cmp.w top(pc),d1
  10217.  bge.s .nonewtop
  10218.  move.w d1,top
  10219. .nonewtop:
  10220.  cmp.w bottom(pc),d3
  10221.  ble.s .nonewbot
  10222.  move.w d3,bottom
  10223. .nonewbot:
  10224.  
  10225.  sub.w d1,d3    ; dy
  10226.  sub.w d0,d2    ; dx
  10227.  
  10228.  blt .linegoingleft
  10229.  
  10230.  ext.l d2
  10231.  divs d3,d2
  10232.  move.w d2,d6
  10233.  swap d2
  10234.  
  10235. ; moveq #0,d6
  10236. ; sub.w d3,d2
  10237. ; blt.s .noco
  10238. ;.makeco
  10239. ; addq #1,d6
  10240. ; sub.w d3,d2
  10241. ; bge.s .makeco
  10242. ;.noco
  10243. ; add.w d3,d2
  10244.  
  10245.  move.w d3,d4
  10246.  move.w d3,d5
  10247.  subq #1,d5
  10248.  move.w d6,d1
  10249.  addq #1,d1
  10250.  
  10251. .pixlopright:
  10252.  move.w d0,(a3)+
  10253.  sub.w d2,d4
  10254.  bge.s .nobigstep
  10255.  add.w d1,d0
  10256.  add.w d3,d4
  10257.  dbra d5,.pixlopright
  10258.  bra lineflat
  10259. .nobigstep
  10260.  add.w d6,d0
  10261.  dbra d5,.pixlopright
  10262.  bra lineflat
  10263.  
  10264. .linegoingleft:
  10265.  
  10266.  neg.w d2
  10267.  
  10268.  ext.l d2
  10269.  divs d3,d2
  10270.  move.w d2,d6
  10271.  swap d2
  10272.  
  10273.  
  10274. ; moveq #0,d6
  10275. ; sub.w d3,d2
  10276. ; blt.s .nocol
  10277. ;.makecol
  10278. ; addq #1,d6
  10279. ; sub.w d3,d2
  10280. ; bge.s .makecol
  10281. ;.nocol
  10282. ; add.w d3,d2
  10283.  
  10284.  
  10285.  
  10286.  move.w d3,d4
  10287.  move.w d3,d5
  10288.  subq #1,d5
  10289.  
  10290.  move.w d6,d1
  10291.  addq #1,d1
  10292.  
  10293. .pixlopleft:
  10294.  sub.w d2,d4
  10295.  bge.s .nobigstepl
  10296.  sub.w d1,d0
  10297.  add.w d3,d4
  10298.  move.w d0,(a3)+
  10299.  dbra d5,.pixlopleft
  10300.  bra lineflat
  10301.  
  10302. .nobigstepl
  10303.  sub.w d6,d0
  10304.  move.w d0,(a3)+
  10305.  dbra d5,.pixlopleft
  10306.  bra lineflat
  10307.  
  10308. lineonright:
  10309.  
  10310.  lea (a3,d1*2),a3
  10311.  
  10312.  cmp.w top(pc),d1
  10313.  bge.s .nonewtop
  10314.  move.w d1,top
  10315. .nonewtop:
  10316.  cmp.w bottom(pc),d3
  10317.  ble.s .nonewbot
  10318.  move.w d3,bottom
  10319. .nonewbot:
  10320.  
  10321.  sub.w d1,d3    ; dy
  10322.  sub.w d0,d2    ; dx
  10323.  blt .linegoingleft
  10324. ; addq #1,d0
  10325.  ext.l d2
  10326.  divs d3,d2
  10327.  move.w d2,d6
  10328.  swap d2
  10329.  
  10330. ; moveq #0,d6
  10331. ; sub.w d3,d2
  10332. ; blt.s .noco
  10333. ;.makeco
  10334. ; addq #1,d6
  10335. ; sub.w d3,d2
  10336. ; bge.s .makeco
  10337. ;.noco
  10338. ; add.w d3,d2
  10339.  
  10340.  move.w d3,d4
  10341.  move.w d3,d5
  10342.  subq #1,d5
  10343.  move.w d6,d1
  10344.  addq #1,d1
  10345.  
  10346. .pixlopright:
  10347.  sub.w d2,d4
  10348.  bge.s .nobigstep
  10349.  add.w d1,d0
  10350.  add.w d3,d4
  10351.  move.w d0,(a3)+
  10352.  dbra d5,.pixlopright
  10353.  bra lineflat
  10354.  
  10355. .nobigstep
  10356.  add.w d6,d0
  10357.  move.w d0,(a3)+
  10358.  dbra d5,.pixlopright
  10359.  bra lineflat
  10360.  
  10361. .linegoingleft:
  10362. ; addq #1,d0
  10363.  neg.w d2
  10364.  
  10365.  ext.l d2
  10366.  divs d3,d2
  10367.  move.w d2,d6
  10368.  swap d2
  10369.  
  10370.  
  10371. ; moveq #0,d6
  10372. ; sub.w d3,d2
  10373. ; blt.s .nocol
  10374. ;.makecol
  10375. ; addq #1,d6
  10376. ; sub.w d3,d2
  10377. ; bge.s .makecol
  10378. ;.nocol
  10379. ; add.w d3,d2
  10380.  
  10381.  move.w d3,d4
  10382.  move.w d3,d5
  10383.  subq #1,d5
  10384.  move.w d6,d1
  10385.  addq #1,d1
  10386.  
  10387. .pixlopleft:
  10388.  move.w d0,(a3)+
  10389.  sub.w d2,d4
  10390.  bge.s .nobigstepl
  10391.  sub.w d1,d0
  10392.  add.w d3,d4
  10393.  dbra d5,.pixlopleft
  10394.  bra lineflat
  10395.  
  10396. .nobigstepl
  10397.  sub.w d6,d0
  10398.  dbra d5,.pixlopleft
  10399.  
  10400. lineflat:
  10401.  
  10402. bothbehind:
  10403.  dbra d7,sideloop
  10404.  bra pastsides
  10405.  
  10406. fbr: dc.w 0
  10407. sbr: dc.w 0
  10408. FloorPtBrights: dc.l 0
  10409.  
  10410. goursides:
  10411.  
  10412.  move.w #300,top
  10413.  move.w #-1,bottom
  10414.  move.w #0,drawit
  10415.  move.l #Rotated,a1
  10416.  move.l #OnScreen,a2
  10417.  move.w (a0)+,d7    ; no of sides
  10418. sideloopGOUR:
  10419.  move.w minz,d6
  10420.  move.w (a0)+,d1
  10421.  move.w (a0),d3
  10422.  
  10423.  move.w d1,d4
  10424.  move.w d3,d5
  10425.  and.w #$0fff,d1
  10426.  and.w #$0fff,d3
  10427.  
  10428.  rol.w #4,d4
  10429.  rol.w #4,d5
  10430.  and.w #$f,d4
  10431.  and.w #$f,d5
  10432.  
  10433.  move.l FloorPtBrights,a4
  10434.  move.w (a4,d4.w*8),d4
  10435.  bge.s .okpos1
  10436.  neg.w d4
  10437. .okpos1:
  10438.  sub.w #300,d4
  10439.  move.w d4,fbr
  10440.  move.w (a4,d5.w*8),d4
  10441.  bge.s .okpos2
  10442.  neg.w d4
  10443. .okpos2:
  10444.  sub.w #300,d4
  10445.  move.w d4,sbr
  10446.  
  10447.  move.w 6(a1,d1*8),d4    ;first z
  10448.  cmp.w d6,d4
  10449.  bgt firstinfrontGOUR
  10450.  move.w 6(a1,d3*8),d5    ; sec z
  10451.  cmp.w d6,d5
  10452.  ble bothbehindGOUR
  10453. ** line must be on left and partially behind.
  10454.  sub.w d5,d4
  10455.  
  10456.  move.w fbr,d0
  10457.  sub.w sbr,d0
  10458.  sub.w d5,d6
  10459.  muls d6,d0
  10460.  divs d4,d0
  10461.  add.w sbr,d0
  10462.  move.w d0,fbr
  10463.  
  10464.  move.l (a1,d1*8),d0
  10465.  sub.l (a1,d3*8),d0
  10466.  asr.l #7,d0
  10467.  muls d6,d0    ; new x coord
  10468.  divs d4,d0
  10469.  ext.l d0
  10470.  asl.l #7,d0
  10471.  
  10472.  add.l (a1,d3*8),d0
  10473.  move.w minz,d4
  10474.  move.w (a2,d3*2),d2
  10475.  divs d4,d0
  10476.  add.w MIDDLEX,d0
  10477.  move.l ypos,d3
  10478.  divs d5,d3
  10479.  
  10480.  move.w bottomline,d1 
  10481.  bra lineclippedGOUR
  10482.  
  10483. firstinfrontGOUR:
  10484.  move.w 6(a1,d3*8),d5    ; sec z
  10485.  cmp.w d6,d5
  10486.  bgt bothinfrontGOUR
  10487. ** line must be on right and partially behind.
  10488.  sub.w d4,d5    ; dz
  10489.  
  10490.  move.w sbr,d2
  10491.  sub.w fbr,d2
  10492.  sub.w d4,d6
  10493.  muls d6,d2
  10494.  divs d5,d2
  10495.  add.w fbr,d2
  10496.  move.w d2,sbr
  10497.  
  10498.  move.l (a1,d3*8),d2
  10499.  sub.l (a1,d1*8),d2    ; dx
  10500.  asr.l #7,d2
  10501.  muls d6,d2    ; new x coord
  10502.  divs d5,d2
  10503.  ext.l d2
  10504.  asl.l #7,d2
  10505.  add.l (a1,d1*8),d2
  10506.  move.w minz,d5
  10507.  move.w (a2,d1*2),d0
  10508.  divs d5,d2
  10509.  add.w MIDDLEX,d2
  10510.  move.l ypos,d1
  10511.  divs d4,d1
  10512.  move.w bottomline,d3 
  10513.  bra lineclippedGOUR
  10514.  
  10515. bothinfrontGOUR:
  10516.  
  10517. * Also, usefully enough, both are on-screen
  10518. * so no bottom clipping is needed.
  10519.  
  10520.  move.w (a2,d1*2),d0    ; first x
  10521.  move.w (a2,d3*2),d2    ; second x
  10522.  move.l ypos,d1
  10523.  move.l d1,d3
  10524.  divs d4,d1        ; first y
  10525.  divs d5,d3        ; second y
  10526. lineclippedGOUR:
  10527.  move.l #rightsidetab,a3
  10528.  cmp.w d1,d3
  10529.  bne linenotflatGOUR
  10530.  
  10531. ; move.w fbr,d4
  10532. ; move.w sbr,d5
  10533. ; cmp.w d0,d2
  10534. ; bgt.s .nsw
  10535. ; exg d4,d5
  10536. ;.nsw:
  10537.  
  10538. ; move.l #leftbrighttab,a3
  10539. ; move.w d4,(a3,d3.w)
  10540. ; move.l #rightbrighttab,a3
  10541. ; move.w d5,(a3,d3.w) 
  10542.  bra lineflatGOUR
  10543.  
  10544. linenotflatGOUR
  10545.  st drawit
  10546.  bgt lineonrightGOUR
  10547.  move.l #leftsidetab,a3
  10548.  exg d1,d3
  10549.  exg d0,d2
  10550.  
  10551.  lea (a3,d1*2),a3
  10552.  lea leftbrighttab-leftsidetab(a3),a4
  10553.  
  10554.  cmp.w top(pc),d1
  10555.  bge.s .nonewtop
  10556.  move.w d1,top
  10557. .nonewtop:
  10558.  cmp.w bottom(pc),d3
  10559.  ble.s .nonewbot
  10560.  move.w d3,bottom
  10561. .nonewbot:
  10562.  
  10563.  sub.w d1,d3    ; dy
  10564.  sub.w d0,d2    ; dx
  10565.  
  10566.  blt .linegoingleft
  10567.  
  10568.  ext.l d2
  10569.  divs d3,d2
  10570.  move.w d2,d6
  10571.  swap d2
  10572.  move.w d2,a5
  10573.  
  10574. ; moveq #0,d6
  10575. ; sub.w d3,d2
  10576. ; blt.s .noco
  10577. ;.makeco
  10578. ; addq #1,d6
  10579. ; sub.w d3,d2
  10580. ; bge.s .makeco
  10581. ;.noco
  10582. ; add.w d3,d2
  10583.  
  10584.  move.w d3,d4
  10585.  move.w d3,d5
  10586.  subq #1,d5
  10587.  move.w d6,d1
  10588.  addq #1,d1
  10589.  move.w d1,a6
  10590.  
  10591.  moveq #0,d1
  10592.  move.w sbr,d1
  10593.  move.w fbr,d2
  10594.  sub.w d1,d2
  10595.  ext.l d2
  10596.  asl.w #8,d2
  10597.  asl.w #2,d2
  10598.  divs d3,d2 
  10599.  ext.l d2
  10600.  asl.l #6,d2
  10601.  swap d1
  10602.  
  10603. .pixlopright:
  10604.  move.w d0,(a3)+
  10605.  swap d1
  10606.  move.w d1,(a4)+
  10607.  swap d1
  10608.  add.l d2,d1
  10609.  
  10610.  sub.w a5,d4
  10611.  bge.s .nobigstep
  10612.  add.w a6,d0
  10613.  add.w d3,d4
  10614.  dbra d5,.pixlopright
  10615.  bra lineflatGOUR
  10616. .nobigstep
  10617.  
  10618.  add.w d6,d0
  10619.  dbra d5,.pixlopright
  10620.  bra lineflatGOUR
  10621.  
  10622. .linegoingleft:
  10623.  
  10624.  neg.w d2
  10625.  
  10626.  ext.l d2
  10627.  divs d3,d2
  10628.  move.w d2,d6
  10629.  swap d2
  10630.  
  10631.  
  10632. ; moveq #0,d6
  10633. ; sub.w d3,d2
  10634. ; blt.s .nocol
  10635. ;.makecol
  10636. ; addq #1,d6
  10637. ; sub.w d3,d2
  10638. ; bge.s .makecol
  10639. ;.nocol
  10640. ; add.w d3,d2
  10641.  
  10642.  move.w d3,d4
  10643.  move.w d3,d5
  10644.  subq #1,d5
  10645.  
  10646.  move.w d6,d1
  10647.  addq #1,d1
  10648.  move.w d1,a6
  10649.  move.w d2,a5
  10650.  
  10651.  moveq #0,d1
  10652.  move.w sbr,d1
  10653.  move.w fbr,d2
  10654.  sub.w d1,d2
  10655.  ext.l d2
  10656.  asl.w #8,d2
  10657.  asl.w #2,d2
  10658.  divs d3,d2 
  10659.  ext.l d2
  10660.  asl.l #6,d2
  10661.  swap d1
  10662.  
  10663. .pixlopleft:
  10664.  
  10665.  swap d1
  10666.  move.w d1,(a4)+
  10667.  swap d1
  10668.  add.l d2,d1
  10669.  
  10670.  sub.w a5,d4
  10671.  bge.s .nobigstepl
  10672.  sub.w a6,d0
  10673.  add.w d3,d4
  10674.  move.w d0,(a3)+
  10675.  dbra d5,.pixlopleft
  10676.  bra lineflatGOUR
  10677.  
  10678. .nobigstepl
  10679.  sub.w d6,d0
  10680.  move.w d0,(a3)+
  10681.  dbra d5,.pixlopleft
  10682.  bra lineflatGOUR
  10683.  
  10684. lineonrightGOUR:
  10685.  
  10686.  lea (a3,d1*2),a3
  10687.  
  10688.  lea rightbrighttab-rightsidetab(a3),a4
  10689.  
  10690.  cmp.w top(pc),d1
  10691.  bge.s .nonewtop
  10692.  move.w d1,top
  10693. .nonewtop:
  10694.  cmp.w bottom(pc),d3
  10695.  ble.s .nonewbot
  10696.  move.w d3,bottom
  10697. .nonewbot:
  10698.  
  10699.  sub.w d1,d3    ; dy
  10700.  sub.w d0,d2    ; dx
  10701.  blt .linegoingleft
  10702. ; addq #1,d0
  10703.  ext.l d2
  10704.  divs d3,d2
  10705.  move.w d2,d6
  10706.  swap d2
  10707.  
  10708. ; moveq #0,d6
  10709. ; sub.w d3,d2
  10710. ; blt.s .noco
  10711. ;.makeco
  10712. ; addq #1,d6
  10713. ; sub.w d3,d2
  10714. ; bge.s .makeco
  10715. ;.noco
  10716. ; add.w d3,d2
  10717.  
  10718.  move.w d3,d4
  10719.  move.w d3,d5
  10720.  subq #1,d5
  10721.  move.w d6,d1
  10722.  addq #1,d1
  10723.  
  10724.  move.w d1,a6
  10725.  move.w d2,a5
  10726.  
  10727.  moveq #0,d1
  10728.  move.w fbr,d1
  10729.  move.w sbr,d2
  10730.  sub.w d1,d2
  10731.  ext.l d2
  10732.  asl.w #8,d2
  10733.  asl.w #2,d2
  10734.  divs d3,d2 
  10735.  ext.l d2
  10736.  asl.l #6,d2
  10737.  swap d1
  10738.  
  10739. .pixlopright:
  10740.  
  10741.  swap d1
  10742.  move.w d1,(a4)+
  10743.  swap d1
  10744.  add.l d2,d1
  10745.  
  10746.  sub.w a5,d4
  10747.  bge.s .nobigstep
  10748.  add.w a6,d0
  10749.  add.w d3,d4
  10750.  move.w d0,(a3)+
  10751.  dbra d5,.pixlopright
  10752.  bra lineflatGOUR
  10753.  
  10754. .nobigstep
  10755.  add.w d6,d0
  10756.  move.w d0,(a3)+
  10757.  dbra d5,.pixlopright
  10758.  bra lineflatGOUR
  10759.  
  10760. .linegoingleft:
  10761. ; addq #1,d0
  10762.  neg.w d2
  10763.  
  10764.  ext.l d2
  10765.  divs d3,d2
  10766.  move.w d2,d6
  10767.  swap d2
  10768.  
  10769.  
  10770. ; moveq #0,d6
  10771. ; sub.w d3,d2
  10772. ; blt.s .nocol
  10773. ;.makecol
  10774. ; addq #1,d6
  10775. ; sub.w d3,d2
  10776. ; bge.s .makecol
  10777. ;.nocol
  10778. ; add.w d3,d2
  10779.  
  10780.  move.w d3,d4
  10781.  move.w d3,d5
  10782.  subq #1,d5
  10783.  move.w d6,d1
  10784.  addq #1,d1
  10785.  move.w d1,a6
  10786.  move.w d2,a5
  10787.  
  10788.  moveq #0,d1
  10789.  move.w fbr,d1
  10790.  move.w sbr,d2
  10791.  sub.w d1,d2
  10792.  ext.l d2
  10793.  asl.w #8,d2
  10794.  asl.w #2,d2
  10795.  divs d3,d2 
  10796.  ext.l d2
  10797.  asl.l #6,d2
  10798.  swap d1
  10799.  
  10800. .pixlopleft:
  10801.  
  10802.  swap d1
  10803.  move.w d1,(a4)+
  10804.  swap d1
  10805.  add.l d2,d1
  10806.  
  10807.  move.w d0,(a3)+
  10808.  sub.w a5,d4
  10809.  bge.s .nobigstepl
  10810.  sub.w a6,d0
  10811.  add.w d3,d4
  10812.  dbra d5,.pixlopleft
  10813.  bra lineflatGOUR
  10814.  
  10815. .nobigstepl
  10816.  sub.w d6,d0
  10817.  dbra d5,.pixlopleft
  10818.  
  10819. lineflatGOUR:
  10820.  
  10821. bothbehindGOUR:
  10822.  dbra d7,sideloopGOUR
  10823.  
  10824. pastsides:
  10825.  
  10826.  addq #2,a0
  10827.  
  10828.  move.w #320,linedir
  10829.  
  10830. ; move.l FASTBUFFER2,a6
  10831. ; add.l BIGMIDDLEY,a6
  10832. ; move.l a6,REFPTR
  10833.  
  10834.  move.l FASTBUFFER,a6
  10835.  add.l BIGMIDDLEY,a6
  10836.  move.w (a0)+,d6
  10837.  add.w SMALLIT,d6
  10838.  move.w d6,scaleval
  10839.  move.w (a0)+,d6
  10840.  
  10841.  ifne CHEESEY
  10842.  move.w d6,d7    ; 000000XX000000YY
  10843.  lsr.w #6,d6
  10844.  add.w d6,d7    ; 000000XX0000XXYY
  10845.  
  10846.  and.b #%111,d6    ; 000000XX00000XYY
  10847.  add.b d7,d7    ; 000000XX0000XYY0
  10848.  asl.w #4,d7    ; 00XX0000 XYY00000
  10849.  and.w #%0010000011100000,d7
  10850.  move.w d7,d6
  10851.  endc
  10852.  
  10853.  move.w d6,whichtile
  10854.  move.w (a0)+,d6
  10855.  add.w ZoneBright,d6
  10856.  move.w d6,lighttype
  10857.  move.w above(pc),d6
  10858.  beq groundfloor
  10859. * on ceiling:
  10860.  move.w #-320,linedir
  10861.  suba.w #320,a6
  10862. groundfloor:
  10863.  
  10864.  move.w xoff,d6
  10865.  move.w zoff,d7
  10866.  add.w xwobxoff,d7
  10867.  add.w xwobzoff,d6
  10868.  ext.l d6
  10869.  ext.l d7
  10870.  
  10871.  tst.b FULLSCR
  10872.  beq.s .shiftit
  10873.  
  10874.  asl.l #2,d6
  10875.  asl.l #2,d7
  10876.  divs #3,d6
  10877.  divs #3,d7
  10878.  swap d6
  10879.  swap d7
  10880.  clr.w d6
  10881.  clr.w d7
  10882.  asr.l #2,d6
  10883.  asr.l #2,d7
  10884.  bra.s .donsht
  10885.  
  10886. .shiftit
  10887.  
  10888. ; divs #3,d6
  10889. ; divs #3,d7
  10890.  swap d6
  10891.  swap d7
  10892.  clr.w d6
  10893.  clr.w d7
  10894.  asr.l #1,d6
  10895.  asr.l #1,d7
  10896. .donsht:
  10897.  move.w scaleval(pc),d3
  10898.  beq.s .samescale
  10899.  bgt.s .scaledown
  10900.  neg.w d3
  10901.  asr.l d3,d7
  10902.  asr.l d3,d6
  10903.  bra.s .samescale
  10904. .scaledown:
  10905.  asl.l d3,d6
  10906.  asl.l d3,d7
  10907. .samescale
  10908.  
  10909.  ifne CHEESEY
  10910.  asr.l #1,d6
  10911.  asr.l #1,d7
  10912.  endc
  10913.  
  10914.  move.l d6,sxoff
  10915.  move.l d7,szoff
  10916.  bra pastscale 
  10917.  
  10918.  asr.l #3,d1
  10919.  asr.l #3,d2
  10920.  asr.l #2,d1
  10921.  asr.l #2,d2
  10922.  asr.l #1,d1
  10923.  asr.l #1,d2
  10924. scaleprogfrom
  10925.  nop
  10926.  nop
  10927.  asl.l #1,d1
  10928.  asl.l #1,d2
  10929.  asl.l #2,d1
  10930.  asl.l #2,d2
  10931.  asl.l #3,d1
  10932.  asl.l #3,d2
  10933.  
  10934. top: dc.w 0
  10935. bottom: dc.w 0
  10936. ypos: dc.l 0
  10937. nfloors: dc.w 0
  10938. lighttype: dc.w 0
  10939. above: dc.w 0 
  10940. linedir: dc.w 0
  10941. distaddr: dc.w 0
  10942.  
  10943. minz: dc.l 0
  10944.  
  10945. leftsidetab:
  10946.  ds.w 512*2
  10947. rightsidetab:
  10948.  ds.w 512*2
  10949. leftbrighttab:
  10950.  ds.w 512*2
  10951. rightbrighttab:
  10952.  ds.w 512*2
  10953.  
  10954. PointBrights:
  10955.  dc.l 0
  10956. CurrentPointBrights:
  10957.  ds.l 2*256*10
  10958.  
  10959. movespd: dc.w 0
  10960. largespd: dc.l 0
  10961. disttobot: dc.w 0
  10962.  
  10963. pastscale:
  10964.  
  10965.  
  10966.  tst.b drawit(pc)
  10967.  beq dontdrawfloor
  10968.  
  10969.  tst.b DOUBLEHEIGHT
  10970.  beq pix1h
  10971.  
  10972.  move.l a0,-(a7)
  10973.  move.w linedir,d1
  10974.  add.w d1,linedir
  10975.  
  10976.  move.l #leftsidetab,a4
  10977.  move.w top(pc),d1
  10978.  tst.w above
  10979.  beq.s .clipfloor
  10980.  
  10981.  sub.w #320,a6
  10982.  
  10983.  move.w MIDDLEY,d7
  10984.  subq #1,d7
  10985.  sub.w d1,d7
  10986.  move.w d7,disttobot
  10987.  
  10988.  move.w bottom(pc),d7
  10989.  move.w MIDDLEY,d3
  10990.  move.w d3,d4
  10991.  sub.w topclip,d3
  10992.  sub.w botclip,d4
  10993.  cmp.w d3,d1
  10994.  bge predontdrawfloor
  10995.  cmp.w d4,d7
  10996.  blt predontdrawfloor
  10997.  cmp.w d4,d1
  10998.  bge.s .nocliptoproof
  10999.  move.w d4,d1
  11000. .nocliptoproof
  11001.  cmp.w d3,d7
  11002.  blt .doneclip
  11003.  move.w d3,d7
  11004.  bra .doneclip
  11005.  
  11006. .clipfloor:
  11007.  move.w BOTTOMY,d7
  11008.  sub.w MIDDLEY,d7
  11009.  subq #1,d7
  11010.  sub.w d1,d7
  11011.  move.w d7,disttobot
  11012.  
  11013.  move.w bottom(pc),d7
  11014.  move.w botclip,d4
  11015.  sub.w MIDDLEY,d4
  11016.  cmp.w d4,d1
  11017.  bge predontdrawfloor
  11018.  move.w topclip,d3
  11019.  sub.w MIDDLEY,d3
  11020.  cmp.w d3,d1
  11021.  bge.s .nocliptopfloor
  11022.  move.w d3,d1
  11023. .nocliptopfloor 
  11024.  cmp.w d3,d7
  11025.  ble predontdrawfloor
  11026.  cmp.w d4,d7
  11027.  blt.s .noclipbotfloor
  11028.  move.w d4,d7
  11029. .noclipbotfloor:
  11030.  
  11031. .doneclip:
  11032.  
  11033.  lea (a4,d1*2),a4
  11034.  addq #1,d7
  11035.  sub.w d1,d7
  11036.  
  11037. ;moveq #0,d0
  11038.  asr.w #1,d1
  11039. ; addx d0,d1
  11040.  
  11041. ; move.l #dists,a2
  11042.  move.w distaddr,d0
  11043.  muls #64,d0
  11044.  move.l d0,a2
  11045. ; muls #25,d0
  11046. ; adda.w d0,a2
  11047. ; lea (a2,d1*2),a2
  11048.  asr.w #1,d7
  11049.  ble predontdrawfloor 
  11050.  move.w d1,d0
  11051.  bne.s .notzero
  11052.  moveq #1,d0
  11053. .notzero
  11054.  add.w d0,d0
  11055.  muls linedir,d1
  11056.  add.l d1,a6
  11057. ; sub.l d1,REFPTR
  11058.  move.l TexturePal,a1
  11059.  add.l #256*32,a1
  11060.  move.l LineToUse,a5
  11061.  
  11062.  move.w #4,tonextline
  11063.  
  11064.  bra pix2h
  11065.  
  11066. pix1h:
  11067.  
  11068.  move.l a0,-(a7)
  11069.  
  11070.  move.l #leftsidetab,a4
  11071.  move.w top(pc),d1
  11072.   
  11073.  tst.w above
  11074.  beq.s clipfloor
  11075.  
  11076.  move.w MIDDLEY,d7
  11077.  subq #1,d7
  11078.  sub.w d1,d7
  11079.  move.w d7,disttobot
  11080.  
  11081.  move.w bottom(pc),d7
  11082.  move.w MIDDLEY,d3
  11083.  move.w d3,d4
  11084.  sub.w topclip,d3
  11085.  sub.w botclip,d4
  11086.  cmp.w d3,d1
  11087.  bge predontdrawfloor
  11088.  cmp.w d4,d7
  11089.  blt predontdrawfloor
  11090.  cmp.w d4,d1
  11091.  bge.s .nocliptoproof
  11092.  move.w d4,d1
  11093. .nocliptoproof
  11094.  cmp.w d3,d7
  11095.  blt doneclip
  11096.  move.w d3,d7
  11097.  bra doneclip
  11098.  
  11099. clipfloor:
  11100.  move.w BOTTOMY,d7
  11101.  sub.w MIDDLEY,d7
  11102.  subq #1,d7
  11103.  sub.w d1,d7
  11104.  move.w d7,disttobot
  11105.  
  11106.  move.w bottom(pc),d7
  11107.  move.w botclip,d4
  11108.  sub.w MIDDLEY,d4
  11109.  cmp.w d4,d1
  11110.  bge predontdrawfloor
  11111.  move.w topclip,d3
  11112.  sub.w MIDDLEY,d3
  11113.  cmp.w d3,d1
  11114.  bge.s .nocliptopfloor
  11115.  move.w d3,d1
  11116. .nocliptopfloor 
  11117.  cmp.w d3,d7
  11118.  ble predontdrawfloor
  11119.  cmp.w d4,d7
  11120.  blt.s .noclipbotfloor
  11121.  move.w d4,d7
  11122. .noclipbotfloor:
  11123.  
  11124. doneclip:
  11125.  
  11126.  lea (a4,d1*2),a4
  11127. ; move.l #dists,a2
  11128.  move.w distaddr,d0
  11129.  muls #64,d0
  11130.  move.l d0,a2
  11131. ; muls #25,d0
  11132. ; adda.w d0,a2
  11133. ; lea (a2,d1*2),a2
  11134.  sub.w d1,d7
  11135.  ble predontdrawfloor 
  11136.  move.w d1,d0
  11137.  bne.s .notzero
  11138.  moveq #1,d0
  11139. .notzero
  11140.  muls linedir,d1
  11141.  add.l d1,a6
  11142. ; sub.l d1,REFPTR
  11143.  move.l TexturePal,a1
  11144.  add.l #256*32,a1
  11145.  move.l LineToUse,a5
  11146.  
  11147.  move.w #2,tonextline
  11148.  
  11149. pix2h:
  11150.  
  11151.  tst.b gourfloor
  11152.  bne dogourfloor
  11153.  
  11154.  tst.b anyclipping
  11155.  beq dofloornoclip
  11156.  
  11157. dofloor:
  11158. ; move.w (a2)+,d0
  11159.  move.w leftclip,d3
  11160.  move.w rightclip,d4
  11161.  move.w rightsidetab-leftsidetab(a4),d2
  11162.  
  11163.  addq #1,d2
  11164.  cmp.w d3,d2
  11165.  ble.s nodrawline
  11166.  cmp.w d4,d2
  11167.  ble.s noclipright
  11168.  move.w d4,d2
  11169. noclipright:
  11170.  move.w (a4),d1
  11171.  cmp.w d4,d1
  11172.  bge.s nodrawline
  11173.  cmp.w d3,d1
  11174.  bge.s noclipleft
  11175.  move.w d3,d1
  11176. noclipleft:
  11177.  cmp.w d1,d2
  11178.  ble.s nodrawline
  11179.  
  11180.  move.w d1,leftedge
  11181.  move.w d2,rightedge
  11182.  
  11183. ; moveq #0,d1
  11184. ; moveq #0,d3
  11185. ; move.w leftbrighttab-leftsidetab(a4),d1
  11186. ; bge.s .okbl
  11187. ; moveq #0,d1
  11188. ;.okbl:
  11189.  
  11190. ; move.w rightbrighttab-leftsidetab(a4),d3
  11191. ; bge.s .okbr
  11192. ; moveq #0,d3
  11193. ;.okbr:
  11194.  
  11195. ; sub.w d1,d3
  11196. ; asl.w #8,d1
  11197. ; move.l d1,leftbright
  11198. ; swap d3
  11199. ; asr.l #5,d3
  11200. ; divs d5,d3
  11201. ; move.w d3,d5
  11202. ; muls.w d6,d5
  11203. ; asr.l #3,d5
  11204. ; clr.b d5
  11205. ; add.w d5,leftbright+2
  11206.  
  11207. ; ext.l d3
  11208. ; asl.l #5,d3
  11209. ; swap d3
  11210. ; asl.w #8,d3
  11211. ; move.l d3,brightspd
  11212.  
  11213.  move.l a6,a3
  11214.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  11215.  move.l a2,d7
  11216.  asl.l #2,d7
  11217.  ext.l d0
  11218.  divs.l d0,d7
  11219.  move.l d7,d0
  11220.  jsr (a5)
  11221.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  11222. nodrawline
  11223.  sub.w #1,disttobot
  11224.  move.w linedir(pc),d3
  11225.  adda.w d3,a6
  11226. ; ext.l d3
  11227. ; sub.l d3,REFPTR
  11228.  move.w tonextline,d3
  11229.  add.w d3,a4
  11230.  asr.w #1,d3
  11231.  add.w d3,d0
  11232.  subq #1,d7
  11233.  bgt dofloor
  11234.  
  11235. predontdrawfloor
  11236.  move.l (a7)+,a0
  11237.  
  11238. dontdrawfloor:
  11239.  
  11240.  rts
  11241.  
  11242. tonextline: dc.w 0
  11243. anyclipping: dc.w 0
  11244.  
  11245. dofloornoclip:
  11246. ; move.w (a2)+,d0
  11247.  move.w rightsidetab-leftsidetab(a4),d2
  11248.  addq #1,d2
  11249.  move.w (a4),d1
  11250.  move.w d1,leftedge
  11251.  move.w d2,rightedge
  11252.  
  11253. ; sub.w d1,d2
  11254.  
  11255. ; moveq #0,d1
  11256. ; moveq #0,d3
  11257. ; move.w leftbrighttab-leftsidetab(a4),d1
  11258. ; bge.s .okbl
  11259. ; moveq #0,d1
  11260. ;.okbl:
  11261.  
  11262. ; move.w rightbrighttab-leftsidetab(a4),d3
  11263. ; bge.s .okbr
  11264. ; moveq #0,d3
  11265. ;.okbr:
  11266.  
  11267. ; sub.w d1,d3
  11268. ; asl.w #8,d1
  11269. ; move.l d1,leftbright
  11270. ; swap d3
  11271. ; asr.l #5,d3
  11272. ; divs d2,d3
  11273. ; ext.l d3
  11274. ; asl.l #5,d3
  11275. ; swap d3
  11276. ; asl.w #8,d3
  11277. ; move.l d3,brightspd
  11278.  
  11279.  move.l a6,a3
  11280.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  11281.  move.l a2,d7
  11282.  asl.l #2,d7
  11283.  ext.l d0
  11284.  divs.l d0,d7
  11285.  move.l d7,d0
  11286.  jsr (a5)
  11287.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  11288.  sub.w #1,disttobot
  11289.  move.w linedir(pc),d3
  11290.  adda.w d3,a6
  11291. ; ext.l d3
  11292. ; sub.l d3,REFPTR
  11293.  move.w tonextline,d3
  11294.  add.w d3,a4
  11295.  asr.w #1,d3
  11296.  add.w d3,d0
  11297.  subq #1,d7
  11298.  bgt dofloornoclip
  11299.  
  11300.  bra predontdrawfloor
  11301.  
  11302. dogourfloor:
  11303.  tst.b anyclipping
  11304.  beq dofloornoclipGOUR
  11305.  
  11306. dofloorGOUR:
  11307. ; move.w (a2)+,d0
  11308.  move.w leftclip,d3
  11309.  move.w rightclip,d4
  11310.  move.w rightsidetab-leftsidetab(a4),d2
  11311.  
  11312.  move.w d2,d5
  11313.  sub.w (a4),d5
  11314.  addq #1,d5
  11315.  moveq #0,d6
  11316.  
  11317.  addq #1,d2
  11318.  cmp.w d3,d2
  11319.  ble nodrawlineGOUR
  11320.  cmp.w d4,d2
  11321.  ble.s nocliprightGOUR
  11322.  move.w d4,d2
  11323. nocliprightGOUR:
  11324.  move.w (a4),d1
  11325.  cmp.w d4,d1
  11326.  bge nodrawlineGOUR
  11327.  cmp.w d3,d1
  11328.  bge.s noclipleftGOUR
  11329.  move.w d3,d6
  11330.  subq #1,d6
  11331.  sub.w d1,d6
  11332.  move.w d3,d1
  11333. noclipleftGOUR:
  11334.  cmp.w d1,d2
  11335.  ble nodrawlineGOUR
  11336.  
  11337.  move.w d1,leftedge
  11338.  move.w d2,rightedge
  11339.  
  11340.  move.l a2,d2
  11341.  asl.l #2,d2
  11342.  ext.l d0
  11343.  divs.l d0,d2
  11344.  move.l d2,dst
  11345.  asr.l #7,d2
  11346.  asr.l #2,d2
  11347. ; addq #5,d2
  11348. ; add.w lighttype,d2
  11349.  
  11350.  moveq #0,d1
  11351.  moveq #0,d3
  11352.  move.w leftbrighttab-leftsidetab(a4),d1
  11353.  add.w d2,d1
  11354.  bge.s .okbl
  11355.  moveq #0,d1
  11356. .okbl:
  11357. ; asr.w #1,d1
  11358.  cmp.w #30,d1
  11359.  ble.s .okdl
  11360.  move.w #30,d1
  11361. .okdl:
  11362.  
  11363.  move.w rightbrighttab-leftsidetab(a4),d3
  11364.  add.w d2,d3
  11365.  bge.s .okbr
  11366.  moveq #0,d3
  11367. .okbr:
  11368. ; asr.w #1,d3
  11369.  cmp.w #30,d3
  11370.  ble.s .okdr
  11371.  move.w #30,d3
  11372. .okdr:
  11373.  
  11374.  sub.w d1,d3
  11375.  asl.w #8,d1
  11376.  move.w d1,leftbright
  11377.  swap d3
  11378.  tst.l d3
  11379.  bgt.s .OKITSPOSALREADY 
  11380.  neg.l d3
  11381.  asr.l #6,d3
  11382.  divs d5,d3
  11383.  neg.w d3
  11384.  bra.s .OKNOWITSNEG
  11385.  
  11386. .OKITSPOSALREADY
  11387.  asr.l #6,d3
  11388.  divs d5,d3
  11389. .OKNOWITSNEG
  11390.  muls d3,d6
  11391.  add.w #256*4,d6
  11392.  asr.w #2,d6
  11393.  clr.b d6
  11394.  add.w leftbright,d6
  11395.  bge.s .oklbnn
  11396.  moveq #0,d6
  11397. .oklbnn:
  11398.  move.w d6,leftbright
  11399.  
  11400.  ext.l d3
  11401.  asr.l #2,d3
  11402. ; swap d3
  11403. ; asl.w #8,d3
  11404.  move.w d3,brightspd
  11405.  
  11406.  move.l a6,a3
  11407.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  11408.  move.l dst,d0
  11409.  move.l TexturePal,a1
  11410.  add.l #256*32,a1
  11411.  move.l floortile,a0
  11412.  adda.w whichtile,a0
  11413.  jsr pastfloorbright
  11414.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  11415. nodrawlineGOUR
  11416.  
  11417.  sub.w #1,disttobot
  11418.  
  11419.  move.w linedir(pc),d3
  11420.  adda.w d3,a6
  11421. ; ext.l d3
  11422. ; sub.l d3,REFPTR
  11423.  move.w tonextline,d3
  11424.  add.w d3,a4
  11425.  asr.w #1,d3
  11426.  add.w d3,d0
  11427.  subq #1,d7
  11428.  bgt dofloorGOUR
  11429.  
  11430. predontdrawfloorGOUR
  11431.  move.l (a7)+,a0
  11432.  
  11433. dontdrawfloorGOUR:
  11434.  
  11435.  rts
  11436.  
  11437. REFPTR: dc.l 0
  11438.  
  11439. dofloornoclipGOUR:
  11440. ; move.w (a2)+,d0
  11441.  move.w rightsidetab-leftsidetab(a4),d2
  11442.  addq #1,d2
  11443.  move.w (a4),d1
  11444.  move.w d1,leftedge
  11445.  move.w d2,rightedge
  11446.  
  11447.  sub.w d1,d2
  11448.  
  11449.  move.l a2,d6
  11450.  asl.l #2,d6
  11451.  ext.l d0
  11452.  divs.l d0,d6
  11453.  move.l d6,d5
  11454.  asr.l #7,d5
  11455.  asr.l #2,d5
  11456. ; addq #5,d5
  11457. ; add.w lighttype,d5
  11458.  
  11459.  moveq #0,d1
  11460.  moveq #0,d3
  11461.  move.w leftbrighttab-leftsidetab(a4),d1
  11462.  add.w d5,d1
  11463.  bge.s .okbl
  11464.  moveq #0,d1
  11465. .okbl:
  11466. ; asr.w #1,d1
  11467.  cmp.w #30,d1
  11468.  ble.s .okdl
  11469.  move.w #30,d1
  11470. .okdl:
  11471.  
  11472.  move.w rightbrighttab-leftsidetab(a4),d3
  11473.  add.w d5,d3
  11474.  bge.s .okbr
  11475.  moveq #0,d3
  11476. .okbr:
  11477. ; asr.w #1,d3
  11478.  cmp.w #30,d3
  11479.  ble.s .okdr
  11480.  move.w #30,d3
  11481. .okdr:
  11482.  
  11483. ; sub.w d1,d3
  11484. ; asl.w #8,d1
  11485. ; move.l d1,leftbright
  11486. ; swap d3
  11487. ; asr.l #5,d3
  11488. ; divs d2,d3
  11489. ; ext.l d3
  11490. ; asl.l #5,d3
  11491. ; swap d3
  11492. ; asl.w #8,d3
  11493. ; move.l d3,brightspd
  11494.  
  11495.  sub.w d1,d3
  11496.  asl.w #8,d1
  11497.  move.w d1,leftbright
  11498.  swap d3
  11499.  ext.l d2
  11500.  divs.l d2,d3
  11501.  asr.l #8,d3
  11502.  move.w d3,brightspd
  11503.  
  11504.  move.l a6,a3
  11505.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  11506.  move.l d6,d0
  11507.  move.l d0,dst
  11508.  move.l TexturePal,a1
  11509.  add.l #256*32,a1
  11510.  move.l floortile,a0
  11511.  adda.w whichtile,a0
  11512.  jsr pastfloorbright
  11513.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  11514.  sub.w #1,disttobot
  11515.  
  11516.  move.w linedir(pc),d3
  11517.  adda.w d3,a6
  11518. ; ext.l d3
  11519. ; sub.l d3,REFPTR
  11520.  
  11521.  move.w tonextline,d3
  11522.  add.w d3,a4
  11523.  asr.w #1,d3
  11524.  add.w d3,d0
  11525.  subq #1,d7
  11526.  bgt dofloornoclipGOUR
  11527.  
  11528.  bra predontdrawfloorGOUR
  11529.  
  11530.  
  11531.  
  11532. dists:
  11533. ; incbin "floordists"
  11534. drawit: dc.w 0
  11535.  
  11536. LineToUse: dc.l 0
  11537.  
  11538. ***************************
  11539. * Right then, time for the floor
  11540. * routine...
  11541. * For test purposes, give it
  11542. * a3 = point to screen
  11543. * d0= z distance away
  11544. * and sinval+cosval must be set up.
  11545. ***************************
  11546.  
  11547. BLACKFLOOR:
  11548.  moveq #0,d0
  11549.  bra.s DOBLACK
  11550.  
  11551. SimpleFloorLine:
  11552.  
  11553.  CACHE_OFF d2
  11554.  
  11555.  move.l #doacrossline,a1
  11556.  move.w leftedge(pc),d1
  11557.  move.w rightedge(pc),d3
  11558.  sub.w d1,d3
  11559.  lea (a1,d1.w*4),a1
  11560.  move.w (a1,d3.w*4),d4
  11561.  move.w #$4e75,(a1,d3.w*4)
  11562.  
  11563.  tst.b CLRNOFLOOR
  11564.  bne.s BLACKFLOOR
  11565.  
  11566.  move.l #PLAINSCALE,a2
  11567.  
  11568.  move.w d0,d2
  11569.  move.w lighttype,d1
  11570.  asr.w #8,d2
  11571.  add.w #5,d1
  11572.  add.w d2,d1
  11573.  bge.s .fixedbright
  11574.  moveq #0,d1
  11575. .fixedbright:
  11576.  cmp.w #28,d1
  11577.  ble.s .smallbright
  11578.  move.w #28,d1
  11579. .smallbright:
  11580.  lea (a2,d1.w*2),a2
  11581.  
  11582.  move.w whichtile,d0
  11583.  move.w d0,d1
  11584.  and.w #$3,d1
  11585.  and.w #$300,d0
  11586.  lsl.b #6,d1
  11587.  move.b d1,d0
  11588.  move.w d0,tstwhich
  11589.  move.w (a2,d0.w),d0
  11590.  
  11591. DOBLACK:
  11592.  jsr (a1)
  11593.  move.w d4,(a1,d3.w*4)
  11594.  
  11595.  CACHE_ON d2
  11596.  
  11597.  rts
  11598.  
  11599. tstwhich: dc.w 0
  11600. whichtile: dc.w 0
  11601.   
  11602. PLAINSCALE: 
  11603. ;incbin "ab3:includes/plainscale"
  11604.   
  11605. storeit: dc.l 0
  11606.  
  11607. doacrossline:
  11608. val SET 0
  11609.  REPT 32
  11610.  move.w d0,val(a3)
  11611. val SET val+4
  11612.  ENDR
  11613. val SET val+4
  11614.  REPT 32
  11615.  move.w d0,val(a3)
  11616. val SET val+4
  11617.  ENDR
  11618. val SET val+4
  11619.  REPT 32
  11620.  move.w d0,val(a3)
  11621. val SET val+4
  11622.  ENDR
  11623.  rts
  11624.  
  11625.  
  11626. leftedge: dc.w 0
  11627. rightedge: dc.w 0
  11628.  
  11629. rndpt: dc.l rndtab
  11630.  
  11631.  
  11632. dst: dc.l 0
  11633.  
  11634. FloorLine:
  11635.  
  11636.  move.l floortile,a0
  11637.  adda.w whichtile,a0
  11638.  move.w lighttype,d1
  11639.  move.l d0,dst    ; *4
  11640.  move.l d0,d2    ; *4
  11641. *********************
  11642. * Old version
  11643.  asr.l #2,d2
  11644.  asr.l #8,d2
  11645.  add.w #5,d1
  11646. *********************
  11647. ; asr.w #3,d2
  11648. ; sub.w #4,d2
  11649. ; cmp.w #6,d2
  11650. ; blt.s flbrbr
  11651. ; move.w #6,d2
  11652. ;flbrbr:
  11653. *********************
  11654.  add.w d2,d1
  11655.  bge.s .fixedbright
  11656.  moveq #0,d1
  11657. .fixedbright:
  11658.  cmp.w #28,d1
  11659.  ble.s .smallbright
  11660.  move.w #28,d1
  11661. .smallbright:
  11662.  move.l TexturePal,a1
  11663.  add.l #256*32,a1
  11664.  add.l floorbright(pc,d1.w*4),a1
  11665.  bra pastfloorbright
  11666.  
  11667. ConstCol: dc.w 0
  11668.  
  11669. BumpLine:
  11670.  
  11671.  tst.b smoothbumps
  11672.  beq.s Chunky
  11673.  
  11674.  move.l #SmoothTile,a0
  11675.  lea Smoothscalecols,a1
  11676.  bra pastast
  11677.  
  11678. Chunky:
  11679.  
  11680.  moveq #0,d2
  11681.  move.l #Bumptile,a0
  11682.  move.w whichtile,d2
  11683.  adda.w d2,a0
  11684.  ror.l #2,d2
  11685.  lsr.w #6,d2
  11686.  rol.l #2,d2
  11687.  and.w #15,d2
  11688.  move.l #ConstCols,a1
  11689.  move.w (a1,d2.w*2),ConstCol
  11690.  lea Bumpscalecols,a1
  11691.  
  11692. pastast:
  11693.  move.w lighttype,d1
  11694.  
  11695.  move.l d0,dst
  11696.  
  11697.  move.l d0,d2
  11698. *********************
  11699. * Old version
  11700.  asr.l #2,d2
  11701.  asr.l #8,d2
  11702.  add.w #5,d1
  11703. *********************
  11704. ; asr.w #3,d2
  11705. ; sub.w #4,d2
  11706. ; cmp.w #6,d2
  11707. ; blt.s flbrbr
  11708. ; move.w #6,d2
  11709. ;flbrbr:
  11710. *********************
  11711.  add.w d2,d1
  11712.  bge.s .fixedbright
  11713.  moveq #0,d1
  11714. .fixedbright:
  11715.  cmp.w #31,d1
  11716.  ble.s .smallbright
  11717.  move.w #31,d1
  11718. .smallbright:
  11719.  add.l floorbright(pc,d1.w*4),a1
  11720.  bra pastfloorbright
  11721.  
  11722.  
  11723. floorbright:
  11724.  dc.l 512*0
  11725.  dc.l 512*1
  11726.  dc.l 512*2
  11727.  dc.l 512*3
  11728.  dc.l 512*4
  11729.  
  11730.  dc.l 512*5
  11731.  dc.l 512*6
  11732.  dc.l 512*7
  11733.  dc.l 512*8
  11734.  dc.l 512*9
  11735.  
  11736.  dc.l 512*10
  11737.  dc.l 512*11
  11738.  dc.l 512*12
  11739.  dc.l 512*13
  11740.  dc.l 512*14
  11741.  
  11742.  dc.l 512*15
  11743.  dc.l 512*16
  11744.  dc.l 512*17
  11745.  dc.l 512*18
  11746.  dc.l 512*19
  11747.  
  11748.  dc.l 512*20
  11749.  dc.l 512*21
  11750.  dc.l 512*22
  11751.  dc.l 512*23
  11752.  dc.l 512*24
  11753.  
  11754.  dc.l 512*25
  11755.  dc.l 512*26
  11756.  dc.l 512*27
  11757.  dc.l 512*28
  11758.  dc.l 512*29
  11759.  
  11760.  dc.l 512*30
  11761.  dc.l 512*31
  11762.  
  11763. widthleft: dc.w 0
  11764. scaleval: dc.w 0
  11765. sxoff: dc.l 0
  11766. szoff: dc.l 0
  11767. xoff34: dc.w 0
  11768. zoff34: dc.w 0
  11769. scosval: dc.w 0
  11770. ssinval: dc.w 0
  11771.  
  11772.  
  11773. floorsetbright:
  11774.  move.l #walltiles,a0
  11775.  
  11776. pastfloorbright:
  11777.  
  11778.  move.l d0,d1
  11779.  muls cosval,d1    ; change in x across whole width
  11780.  move.l d0,d2
  11781.  muls sinval,d2    ; change in z across whole width
  11782.  neg.l d2
  11783.  ifne CHEESEY
  11784.  asr.l #3,d2
  11785.  asr.l #3,d1
  11786.  endc
  11787.  ifeq CHEESEY
  11788.  asr.l #2,d2
  11789.  asr.l #2,d1
  11790.  endc
  11791. scaleprog:
  11792.  move.w scaleval(pc),d3
  11793.  beq.s .samescale
  11794.  bgt.s .scaledown
  11795.  neg.w d3
  11796.  asr.l d3,d1
  11797.  asr.l d3,d2
  11798.  bra.s .samescale
  11799. .scaledown:
  11800.  asl.l d3,d1
  11801.  asl.l d3,d2
  11802. .samescale
  11803.  
  11804.  
  11805.  move.l d1,d3 ;    z cos
  11806.  move.l d3,d6
  11807.  move.l d3,d5
  11808.  asr.l #1,d6
  11809.  add.l d6,d3
  11810.  asr.l #1,d3
  11811.  
  11812.  move.l d2,d4    ; z sin
  11813.  move.l d4,d6
  11814.  asr.l #1,d6
  11815.  add.l d4,d6
  11816.  add.l d3,d4
  11817.  neg.l d4    ; start x
  11818.  
  11819.  asr.l #1,d6    ; zsin/2
  11820.  sub.l d6,d5    ; start z
  11821.  
  11822.  add.l sxoff,d4
  11823.  add.l szoff,d5
  11824.  
  11825.  tst.b FULLSCR
  11826.  beq.s .nob
  11827.  
  11828.  moveq #0,d6
  11829.  move.w leftedge(pc),d6
  11830.  beq.s .nomultleftB
  11831.  
  11832.  add.l d6,d6
  11833.  divs #3,d6
  11834.  ext.l d6
  11835.  
  11836.  move.l d1,a4
  11837.  move.l d2,a5
  11838.  
  11839.  muls.l d6,d1
  11840.  asr.l #7,d1
  11841.  add.l d1,d4
  11842.  
  11843.  muls.l d6,d2
  11844.  asr.l #7,d2
  11845.  add.l d2,d5
  11846.  move.l a4,d1
  11847.  move.l a5,d2
  11848.  
  11849.  move.w leftedge(pc),d6
  11850.  
  11851. .nomultleftB:
  11852.  
  11853.  move.w d4,startsmoothx
  11854.  move.w d5,startsmoothz
  11855.  
  11856.  asr.l #8,d4
  11857.  asl.l #8,d5
  11858. ; add.w szoff,d5
  11859. ; add.w sxoff,d4
  11860. ; and.w #63,d4
  11861. ; and.w #63*256,d5
  11862.  
  11863.  move.w d4,d5
  11864.  
  11865.  asr.l #6,d1
  11866.  asr.l #6,d2
  11867.  divs.l #3,d1
  11868.  divs.l #3,d2
  11869.  
  11870.  bra.s doneallmult
  11871.  
  11872. .nob 
  11873.  
  11874.  moveq #0,d6
  11875.  move.w leftedge(pc),d6
  11876.  beq.s nomultleft
  11877.  
  11878.  move.l d1,a4
  11879.  move.l d2,a5
  11880.  
  11881.  muls.l d6,d1
  11882.  asr.l #7,d1
  11883.  add.l d1,d4
  11884.  
  11885.  muls.l d6,d2
  11886.  asr.l #7,d2
  11887.  add.l d2,d5
  11888.  move.l a4,d1
  11889.  move.l a5,d2
  11890.  
  11891.  move.w leftedge(pc),d6
  11892.  
  11893. nomultleft:
  11894.  
  11895.  move.w d4,startsmoothx
  11896.  move.w d5,startsmoothz
  11897.  
  11898.  asr.l #8,d4
  11899.  asl.l #8,d5
  11900.  
  11901.  
  11902. ; add.w szoff,d5
  11903. ; add.w sxoff,d4
  11904. ; and.w #63,d4
  11905. ; and.w #63*256,d5
  11906.  
  11907.  move.w d4,d5
  11908.  
  11909.  asr.l #7,d1
  11910.  asr.l #7,d2
  11911. ; divs.l #3,d1
  11912. ; divs.l #3,d2
  11913.  
  11914. doneallmult:
  11915.  
  11916.  move.w d1,a4
  11917.  move.w d2,a5
  11918.  asl.l #8,d2
  11919. ; and.w #%0011111100000000,d2
  11920.  asr.l #8,d1
  11921.  move.w d1,d2
  11922.  ifeq CHEESEY
  11923.  move.l #$3fff3fff,d1
  11924.  endc
  11925.  ifne CHEESEY
  11926.  move.l #$1fff1fff,d1
  11927.  endc
  11928.  and.l d1,d5
  11929. ; swap d5
  11930. ; move.w startsmoothz,d5
  11931. ; swap d5
  11932. ; swap d2
  11933. ; move.w a5,d2
  11934. ; swap d2
  11935.  
  11936. ***********************************
  11937.  
  11938.  
  11939.  tst.b DOUBLEWIDTH
  11940.  beq.s .nodoub
  11941.  
  11942.  and.b #$fe,d6
  11943.  
  11944.  move.w d6,a2
  11945.  moveq #0,d0 
  11946.  move.w rightedge(pc),d3 
  11947.  lea (a3,a2.w),a3 
  11948.  move.w d3,d7
  11949.  sub.w a2,d7
  11950.  asr.w #1,d7
  11951.  move.w startsmoothx,d3
  11952.  
  11953.  tst.b usewater
  11954.  bne texturedwaterDOUB
  11955. ; tst.b gourfloor
  11956.  bra gouraudfloorDOUB
  11957.  
  11958. .nodoub:
  11959.  
  11960.  move.w d6,a2
  11961.  moveq #0,d0 
  11962.  move.w rightedge(pc),d3 
  11963.  lea (a3,a2.w),a3 
  11964.  move.w d3,d7
  11965.  sub.w a2,d7
  11966.  
  11967. intofirststrip:
  11968. allintofirst:
  11969.  
  11970.  move.w startsmoothx,d3
  11971.  
  11972. tstwat:
  11973.  
  11974.  tst.b usewater
  11975.  bne texturedwater
  11976. ; tst.b gourfloor
  11977.  bra gouraudfloor
  11978.  
  11979.  
  11980.  
  11981. ******************************
  11982. * BumpMap the floor/ceiling! *
  11983.  tst.b usebumps
  11984.  bne.s BumpMap
  11985. ******************************
  11986.  
  11987. ordinary:
  11988.  moveq #0,d0
  11989.  
  11990.  dbra d7,acrossscrn
  11991.  rts
  11992.  
  11993. usebumps: dc.w $0
  11994. smoothbumps: dc.w $0
  11995. gourfloor: dc.w 0
  11996.  
  11997.  include "ab3:source_4000/bumpmap.s"
  11998.  
  11999.  CNOP 0,4
  12000. backbefore:
  12001.  and.w d1,d5
  12002.  move.b (a0,d5.w*4),d0
  12003.  add.w a4,d3
  12004.  addx.l d6,d5
  12005.  move.w (a1,d0.w*2),(a3)
  12006.  addq #4,a3
  12007.  dbcs d7,acrossscrn
  12008.  dbcc d7,backbefore
  12009.  bra.s past1
  12010.  
  12011. acrossscrn:
  12012.  and.w d1,d5
  12013.  move.b (a0,d5.w*4),d0
  12014.  add.w a4,d3
  12015.  addx.l d2,d5
  12016.  move.w (a1,d0.w*2),(a3)
  12017.  addq #4,a3
  12018.  dbcs d7,acrossscrn
  12019.  dbcc d7,backbefore
  12020. past1:
  12021.  bcc.s gotoacross
  12022.  
  12023.  move.w d4,d7
  12024.  bne.s .notdoneyet
  12025.  rts
  12026. .notdoneyet:
  12027.  
  12028.  cmp.w #32,d7
  12029.  ble.s .notoowide
  12030.  move.w #32,d7
  12031. .notoowide
  12032.  sub.w d7,d4  
  12033.  addq #4,a3
  12034.  
  12035.  dbra d7,backbefore
  12036.  rts
  12037.  
  12038.  
  12039. gotoacross:
  12040.  
  12041.  move.w d4,d7
  12042.  bne.s .notdoneyet
  12043.  rts
  12044. .notdoneyet:
  12045.  
  12046.  cmp.w #32,d7
  12047.  ble.s .notoowide
  12048.  move.w #32,d7
  12049. .notoowide
  12050.  sub.w d7,d4  
  12051.  addq #4,a3
  12052.  
  12053.  dbra d7,acrossscrn
  12054.  rts
  12055.  
  12056. leftbright: dc.l 0
  12057. brightspd: dc.l 0
  12058.  
  12059. gouraudfloor:
  12060.  
  12061.  move.w leftbright,d0
  12062.  move.l d1,d4
  12063.  move.w brightspd,d1
  12064.  
  12065.  move.w d7,d3
  12066.  asr.w #1,d7
  12067.  btst #0,d3
  12068.  beq.s .nosingle1
  12069.  move.w d5,d3
  12070.  move.l d5,d6
  12071.  lsr.w #8,d3
  12072.  swap d6
  12073.  move.b d3,d6
  12074.  move.w d0,d3
  12075.  ifeq CHEESEY
  12076.  move.b (a0,d6.w*4),d3
  12077.  endc
  12078.  ifne CHEESEY
  12079.  move.b (a0,d6.w),d3
  12080.  endc
  12081.  
  12082.  add.w d1,d0
  12083.  add.l d2,d5
  12084.  and.l d4,d5
  12085.  move.b (a1,d3.w),(a3)+
  12086. .nosingle1
  12087.  
  12088.  move.w d7,d3
  12089.  asr.w #1,d7
  12090.  btst #0,d3
  12091.  beq.s .nosingle2
  12092.  move.w d5,d3
  12093.  move.l d5,d6
  12094.  lsr.w #8,d3
  12095.  swap d6
  12096.  move.b d3,d6
  12097.  move.w d0,d3
  12098.  ifeq CHEESEY
  12099.  move.b (a0,d6.w*4),d3
  12100.  endc
  12101.  ifne CHEESEY
  12102.  move.b (a0,d6.w),d3
  12103.  endc
  12104.  add.w d1,d0
  12105.  add.l d2,d5
  12106.  and.l d4,d5
  12107.  move.l d5,d6
  12108.  swap d6
  12109.  move.b (a1,d3.w),(a3)+
  12110.  move.w d5,d3
  12111.  lsr.w #8,d3
  12112.  move.b d3,d6
  12113.  move.w d0,d3
  12114.  ifeq CHEESEY
  12115.  move.b (a0,d6.w*4),d3
  12116.  endc
  12117.  ifne CHEESEY
  12118.  move.b (a0,d6.w),d3
  12119.  endc
  12120.  add.w d1,d0
  12121.  add.l d2,d5
  12122.  and.l d4,d5
  12123.  move.b (a1,d3.w),(a3)+
  12124.  
  12125. .nosingle2
  12126.  
  12127.  move.l d5,d6
  12128.  swap d6
  12129.  
  12130.  dbra d7,acrossscrngour
  12131.  rts
  12132.  
  12133.  CNOP 0,4
  12134.  
  12135. acrossscrngour:
  12136.  move.w d5,d3
  12137.  lsr.w #8,d3
  12138.  move.b d3,d6
  12139.  move.w d0,d3
  12140.  ifeq CHEESEY
  12141.  move.b (a0,d6.w*4),d3
  12142.  endc
  12143.  ifne CHEESEY
  12144.  move.b (a0,d6.w),d3
  12145.  endc
  12146.  add.w d1,d0
  12147.  add.l d2,d5
  12148.  and.l d4,d5
  12149.  move.l d5,d6
  12150.  swap d6
  12151.  move.b (a1,d3.w),(a3)+
  12152.  move.w d5,d3
  12153.  lsr.w #8,d3
  12154.  move.b d3,d6
  12155.  move.w d0,d3
  12156.  ifeq CHEESEY
  12157.  move.b (a0,d6.w*4),d3
  12158.  endc
  12159.  ifne CHEESEY
  12160.  move.b (a0,d6.w),d3
  12161.  endc
  12162.  add.w d1,d0
  12163.  add.l d2,d5
  12164.  and.l d4,d5
  12165.  move.l d5,d6
  12166.  swap d6
  12167.  move.b (a1,d3.w),(a3)+
  12168.  move.w d5,d3
  12169.  lsr.w #8,d3
  12170.  move.b d3,d6
  12171.  move.w d0,d3
  12172.  ifeq CHEESEY
  12173.  move.b (a0,d6.w*4),d3
  12174.  endc
  12175.  ifne CHEESEY
  12176.  move.b (a0,d6.w),d3
  12177.  endc
  12178.  add.w d1,d0
  12179.  add.l d2,d5
  12180.  and.l d4,d5
  12181.  move.l d5,d6
  12182.  swap d6
  12183.  move.b (a1,d3.w),(a3)+
  12184.  move.w d5,d3
  12185.  lsr.w #8,d3
  12186.  move.b d3,d6
  12187.  move.w d0,d3
  12188.  ifeq CHEESEY
  12189.  move.b (a0,d6.w*4),d3
  12190.  endc
  12191.  ifne CHEESEY
  12192.  move.b (a0,d6.w),d3
  12193.  endc
  12194.  add.w d1,d0
  12195.  add.l d2,d5
  12196.  and.l d4,d5
  12197.  move.l d5,d6
  12198.  swap d6
  12199.  move.b (a1,d3.w),(a3)+
  12200.  dbra d7,acrossscrngour
  12201.  
  12202.  rts
  12203.  
  12204.  
  12205. gouraudfloorDOUB:
  12206.  
  12207.  move.w leftbright,d0
  12208.  move.l d1,d4
  12209.  move.w brightspd,d1
  12210.  add.w d1,d1
  12211.  add.l d2,d2
  12212.  
  12213.  move.w d7,d3
  12214.  asr.w #1,d7
  12215.  btst #0,d3
  12216.  beq.s .nosingle1
  12217.  move.w d5,d3
  12218.  move.l d5,d6
  12219.  lsr.w #8,d3
  12220.  swap d6
  12221.  move.b d3,d6
  12222.  move.w d0,d3
  12223.  ifeq CHEESEY
  12224.  move.b (a0,d6.w*4),d3
  12225.  endc
  12226.  ifne CHEESEY
  12227.  move.b (a0,d6.w),d3
  12228.  endc
  12229.  add.w d1,d0
  12230.  add.l d2,d5
  12231.  and.l d4,d5
  12232.  move.w (a1,d3.w),(a3)+
  12233. .nosingle1
  12234.  
  12235.  move.w d7,d3
  12236.  asr.w #1,d7
  12237.  btst #0,d3
  12238.  beq.s .nosingle2
  12239.  move.w d5,d3
  12240.  move.l d5,d6
  12241.  lsr.w #8,d3
  12242.  swap d6
  12243.  move.b d3,d6
  12244.  move.w d0,d3
  12245.  ifeq CHEESEY
  12246.  move.b (a0,d6.w*4),d3
  12247.  endc
  12248.  ifne CHEESEY
  12249.  move.b (a0,d6.w),d3
  12250.  endc
  12251.  add.w d1,d0
  12252.  add.l d2,d5
  12253.  and.l d4,d5
  12254.  move.l d5,d6
  12255.  swap d6
  12256.  move.w (a1,d3.w),(a3)+
  12257.  move.w d5,d3
  12258.  lsr.w #8,d3
  12259.  move.b d3,d6
  12260.  move.w d0,d3
  12261.  ifeq CHEESEY
  12262.  move.b (a0,d6.w*4),d3
  12263.  endc
  12264.  ifne CHEESEY
  12265.  move.b (a0,d6.w),d3
  12266.  endc
  12267.  add.w d1,d0
  12268.  add.l d2,d5
  12269.  and.l d4,d5
  12270.  move.w (a1,d3.w),(a3)+
  12271.  
  12272. .nosingle2
  12273.  
  12274.  move.l d5,d6
  12275.  swap d6
  12276.  
  12277.  dbra d7,acrossscrngourD
  12278.  rts
  12279.  
  12280.  CNOP 0,4
  12281.  
  12282. acrossscrngourD:
  12283.  move.w d5,d3
  12284.  lsr.w #8,d3
  12285.  move.b d3,d6
  12286.  move.w d0,d3
  12287.  ifeq CHEESEY
  12288.  move.b (a0,d6.w*4),d3
  12289.  endc
  12290.  ifne CHEESEY
  12291.  move.b (a0,d6.w),d3
  12292.  endc
  12293.  add.w d1,d0
  12294.  add.l d2,d5
  12295.  and.l d4,d5
  12296.  move.l d5,d6
  12297.  swap d6
  12298.  move.w (a1,d3.w),(a3)+
  12299.  move.w d5,d3
  12300.  lsr.w #8,d3
  12301.  move.b d3,d6
  12302.  move.w d0,d3
  12303.  ifeq CHEESEY
  12304.  move.b (a0,d6.w*4),d3
  12305.  endc
  12306.  ifne CHEESEY
  12307.  move.b (a0,d6.w),d3
  12308.  endc
  12309.  add.w d1,d0
  12310.  add.l d2,d5
  12311.  and.l d4,d5
  12312.  move.l d5,d6
  12313.  swap d6
  12314.  move.w (a1,d3.w),(a3)+
  12315.  move.w d5,d3
  12316.  lsr.w #8,d3
  12317.  move.b d3,d6
  12318.  move.w d0,d3
  12319.  ifeq CHEESEY
  12320.  move.b (a0,d6.w*4),d3
  12321.  endc
  12322.  ifne CHEESEY
  12323.  move.b (a0,d6.w),d3
  12324.  endc
  12325.  add.w d1,d0
  12326.  add.l d2,d5
  12327.  and.l d4,d5
  12328.  move.l d5,d6
  12329.  swap d6
  12330.  move.w (a1,d3.w),(a3)+
  12331.  move.w d5,d3
  12332.  lsr.w #8,d3
  12333.  move.b d3,d6
  12334.  move.w d0,d3
  12335.  ifeq CHEESEY
  12336.  move.b (a0,d6.w*4),d3
  12337.  endc
  12338.  ifne CHEESEY
  12339.  move.b (a0,d6.w),d3
  12340.  endc
  12341.  add.w d1,d0
  12342.  add.l d2,d5
  12343.  and.l d4,d5
  12344.  move.l d5,d6
  12345.  swap d6
  12346.  move.w (a1,d3.w),(a3)+
  12347.  dbra d7,acrossscrngourD
  12348.  
  12349.  rts
  12350.  
  12351.  
  12352. ;backbeforegour:
  12353. ; and.w #63*256+63,d5
  12354. ; move.b (a0,d5.w*4),d0
  12355. ; add.l d1,d0
  12356. ; bcc.s .nomoreb
  12357. ; add.w #256,d0
  12358. ;.nomoreb:
  12359. ; add.w a4,d3
  12360. ; move.w (a1,d0.w*2),(a3)+
  12361. ; addx.l d6,d5
  12362. ; dbcs d7,acrossscrngour
  12363. ; dbcc d7,backbeforegour
  12364. ; rts
  12365. ; bra.s past1gour
  12366.  
  12367. ;acrossscrngour:
  12368. ; and.l #$3f3f,d5 
  12369. ; move.b (a0,d5.w*4),d0
  12370. ; add.l d1,d0
  12371. ; bcc.s .nomoreb
  12372. ; add.w #256,d0
  12373. ;.nomoreb:
  12374. ; add.w a4,d3
  12375. ; move.w (a1,d0.w*2),(a3)+
  12376. ; addx.l d2,d5
  12377. ; dbcs d7,acrossscrngour
  12378. ; dbcc d7,backbeforegour
  12379. ;past1gour:
  12380. ; rts
  12381.  
  12382.  move.w d4,d7
  12383.  bne.s .notdoneyet
  12384.  move.l d0,leftbright
  12385.  
  12386.  rts
  12387. .notdoneyet:
  12388.  
  12389.  cmp.w #32,d7
  12390.  ble.s .notoowide
  12391.  move.w #32,d7
  12392. .notoowide
  12393.  sub.w d7,d4  
  12394.  addq #4,a3
  12395.  
  12396. ; dbra d7,backbeforegour
  12397.  rts
  12398.  
  12399.  
  12400. gotoacrossgour:
  12401.  
  12402.  move.w d4,d7
  12403.  bne.s .notdoneyet
  12404.  rts
  12405. .notdoneyet:
  12406.  
  12407.  cmp.w #32,d7
  12408.  ble.s .notoowide
  12409.  move.w #32,d7
  12410. .notoowide
  12411.  sub.w d7,d4  
  12412.  addq #4,a3
  12413.  
  12414.  dbra d7,acrossscrngour
  12415.  rts
  12416.  
  12417.  
  12418. waterpt: dc.l waterlist
  12419.  
  12420. waterlist:
  12421.  dc.l waterfile
  12422.  dc.l waterfile+2
  12423.  dc.l waterfile+256
  12424.  dc.l waterfile+256+2
  12425.  dc.l waterfile+512
  12426.  dc.l waterfile+512+2
  12427.  dc.l waterfile+768
  12428.  dc.l waterfile+768+2
  12429. ; dc.l waterfile+768
  12430. ; dc.l waterfile+512+2
  12431. ; dc.l waterfile+512
  12432. ; dc.l waterfile+256+2
  12433. ; dc.l waterfile+256
  12434. ; dc.l waterfile+2
  12435. endwaterlist:
  12436.  
  12437. watertouse: dc.l waterfile
  12438.  
  12439. wtan: dc.w 0
  12440. wateroff: dc.l 0
  12441.  
  12442. REFLECTIONWATER:
  12443.  
  12444.  move.l d1,d4
  12445.  
  12446.  add.l wateroff,d5
  12447.  
  12448.  move.l TexturePal,a1
  12449.  add.l #256*16,a1
  12450.  move.l dst,d0
  12451.  clr.b d0
  12452.  
  12453.  add.w d0,d0
  12454.  cmp.w #12*512,d0
  12455.  blt.s .notoowater
  12456.  move.w #12*512,d0
  12457.  
  12458. .notoowater:
  12459.   
  12460.  adda.w d0,a1
  12461.  
  12462.  move.l dst,d0
  12463.  asl.w #7,d0
  12464.  add.w wtan,d0
  12465.  and.w #8191,d0
  12466.  move.l #SineTable,a0
  12467.  move.w (a0,d0.w),d0
  12468.  ext.l d0
  12469.  
  12470.  move.l dst,d3
  12471.  add.w #300,d3
  12472.  divs d3,d0
  12473.  asr.w #5,d0
  12474.  addq #4,d0
  12475.  cmp.w disttobot,d0
  12476.  blt.s oknotoffbotototr
  12477.  
  12478.  move.w disttobot,d0
  12479.  subq #1,d0
  12480.  
  12481. oknotoffbotototr
  12482.  
  12483. ; move.w dst,d3
  12484. ; asr.w #7,d3
  12485. ; add.w d3,d0
  12486.  
  12487.  muls #320,d0
  12488.  tst.w above
  12489.  beq.s nonnnnnegr
  12490.  neg.l d0
  12491.  
  12492. nonnnnnegr:
  12493.  
  12494.  move.l d0,a6
  12495.  
  12496.  move.l watertouse,a0
  12497.  
  12498. ; move.l #mixtab,a5
  12499.  
  12500.  moveq #0,d1
  12501.  
  12502.  move.w startsmoothx,d3
  12503.  dbra d7,acrossscrnwr
  12504.  rts
  12505.  
  12506. backbeforewr:
  12507.  and.w d1,d5 
  12508.  move.w (a0,d5.w*4),d0
  12509.  move.b (a3,a6.w),d0
  12510.  move.w (a1,d0.w),(a3)+
  12511.  add.w a4,d3
  12512.  addx.l d6,d5
  12513.  dbcs d7,acrossscrnwr
  12514.  dbcc d7,backbeforewr
  12515.  rts
  12516.  
  12517. acrossscrnwr:
  12518.  move.w d5,d3
  12519.  move.l d5,d6
  12520.  lsr.w #8,d3
  12521.  swap d6
  12522.  move.b d3,d6
  12523.  move.w (a0,d6.w*4),d0
  12524.  add.l d2,d5
  12525.  move.w (a4,a6.w),d1
  12526.  addq #2,a4
  12527.  move.b (a3,a6.w),d1
  12528.  move.b (a5,d1.l),d0
  12529.  and.l d4,d5
  12530.  move.w (a1,d0.w),(a3)+
  12531.  dbra d7,acrossscrnwr
  12532.  rts
  12533.  
  12534. texturedwater:
  12535.  
  12536.  move.l d1,d4
  12537.  
  12538.  add.l wateroff,d5
  12539.  
  12540.  move.l TexturePal,a1
  12541.  add.l #256*16,a1
  12542.  move.l dst,d0
  12543.  asr.l #2,d0
  12544.  clr.b d0
  12545.  
  12546.  add.w d0,d0
  12547.  cmp.w #9*512,d0
  12548.  blt.s .notoowater
  12549.  move.w #9*512,d0
  12550. .notoowater:
  12551.   
  12552.  adda.w d0,a1
  12553.  
  12554.  move.l dst,d0
  12555.  asl.w #7,d0
  12556.  add.w wtan,d0
  12557.  and.w #8191,d0
  12558.  move.l #SineTable,a0
  12559.  move.w (a0,d0.w),d0
  12560.  ext.l d0
  12561.  
  12562.  move.l dst,d3
  12563.  add.w #300,d3
  12564.  divs d3,d0
  12565.  asr.w #5,d0
  12566.  addq #4,d0
  12567.  cmp.w disttobot,d0
  12568.  blt.s oknotoffbototot
  12569.  
  12570.  move.w disttobot,d0
  12571.  subq #1,d0
  12572.  
  12573. oknotoffbototot
  12574.  
  12575. ; move.w dst,d3
  12576. ; asr.w #7,d3
  12577. ; add.w d3,d0
  12578.  
  12579.  tst.b DOUBLEHEIGHT
  12580.  beq.s .nodoub
  12581.  and.b #$fe,d0
  12582. .nodoub:
  12583.  
  12584.  muls #320,d0
  12585.  tst.w above
  12586.  beq.s nonnnnneg
  12587.  neg.l d0
  12588.  
  12589. nonnnnneg:
  12590.  
  12591.  move.l d0,a6
  12592.  
  12593.  move.l watertouse,a0
  12594.  
  12595.  move.w startsmoothx,d3
  12596.  dbra d7,acrossscrnw
  12597.  rts
  12598.  
  12599. backbeforew:
  12600.  and.w d1,d5
  12601.  move.w (a0,d5.w*4),d0
  12602.  add.w d0,d0
  12603.  move.b (a3,a6.w),d0
  12604.  move.b (a1,d0.w),(a3)+
  12605.  add.w a4,d3
  12606.  addx.l d6,d5
  12607.  dbcs d7,acrossscrnw
  12608.  dbcc d7,backbeforew
  12609.  rts
  12610.  
  12611. acrossscrnw:
  12612.  move.w d5,d3
  12613.  move.l d5,d6
  12614.  lsr.w #8,d3
  12615.  swap d6
  12616.  move.b d3,d6
  12617.  move.w (a0,d6.w*4),d0
  12618.  add.w d0,d0
  12619.  add.l d2,d5
  12620.  move.b (a3,a6.w),d0
  12621.  and.l d4,d5
  12622.  move.b (a1,d0.w),(a3)+
  12623.  dbra d7,acrossscrnw
  12624.  rts
  12625.  
  12626.  
  12627. texturedwaterDOUB:
  12628.  
  12629.  move.l d1,d4
  12630.  
  12631.  add.l wateroff,d5
  12632.  
  12633.  move.l TexturePal,a1
  12634.  add.l #256*16,a1
  12635.  move.l dst,d0
  12636.  asr.l #2,d0
  12637.  clr.b d0
  12638.  
  12639.  add.w d0,d0
  12640.  cmp.w #9*512,d0
  12641.  blt.s .notoowater
  12642.  move.w #9*512,d0
  12643. .notoowater:
  12644.   
  12645.  adda.w d0,a1
  12646.  
  12647.  move.l dst,d0
  12648.  asl.w #7,d0
  12649.  add.w wtan,d0
  12650.  and.w #8191,d0
  12651.  move.l #SineTable,a0
  12652.  move.w (a0,d0.w),d0
  12653.  ext.l d0
  12654.  
  12655.  move.l dst,d3
  12656.  add.w #300,d3
  12657.  divs d3,d0
  12658.  asr.w #5,d0
  12659.  addq #4,d0
  12660.  cmp.w disttobot,d0
  12661.  blt.s .oknotoffbototot
  12662.  
  12663.  move.w disttobot,d0
  12664.  subq #1,d0
  12665.  
  12666. .oknotoffbototot
  12667.  
  12668. ; move.w dst,d3
  12669. ; asr.w #7,d3
  12670. ; add.w d3,d0
  12671.  
  12672.  tst.b DOUBLEHEIGHT
  12673.  beq.s .nodoub
  12674.  and.b #$fe,d0
  12675. .nodoub:
  12676.  
  12677.  muls #320,d0
  12678.  tst.w above
  12679.  beq.s .nonnnnneg
  12680.  neg.l d0
  12681.  
  12682. .nonnnnneg:
  12683.  
  12684.  move.l d0,a6
  12685.  
  12686.  move.l watertouse,a0
  12687.  
  12688.  add.l d2,d2
  12689.  
  12690.  move.w startsmoothx,d3
  12691.  dbra d7,acrossscrnwD
  12692.  rts
  12693.  
  12694.  
  12695. acrossscrnwD:
  12696.  move.w d5,d3
  12697.  move.l d5,d6
  12698.  lsr.w #8,d3
  12699.  swap d6
  12700.  move.b d3,d6
  12701.  move.w (a0,d6.w*4),d0
  12702.  add.w d0,d0
  12703.  add.l d2,d5
  12704.  move.b (a3,a6.w),d0
  12705.  and.l d4,d5
  12706.  move.w (a1,d0.w),(a3)+
  12707.  dbra d7,acrossscrnwD
  12708.  rts
  12709.  
  12710.  
  12711. usewater: dc.w 0
  12712.  dc.w 0
  12713. startsmoothx: dc.w 0
  12714.  dc.w 0
  12715. startsmoothz: dc.w 0
  12716.  
  12717. ********************************
  12718. *
  12719.  include "AB3:source_4000/ObjDrawHIRES.s"
  12720. *
  12721. ********************************
  12722.  
  12723. numframes:
  12724.  dc.w 0
  12725.  
  12726. alframe: dc.l 0
  12727.  
  12728. alan:
  12729.  dcb.l 8,0
  12730.  dcb.l 8,1
  12731.  dcb.l 8,2
  12732.  dcb.l 8,3
  12733. endalan:
  12734.  
  12735. alanptr: dc.l alan
  12736.  
  12737. Time2: dc.l 0
  12738. dispco:
  12739.  dc.w 0
  12740.  
  12741.  
  12742. key_readkey:
  12743.  moveq #0,d0
  12744.  move.b lastpressed,d0
  12745.  move.b #0,lastpressed
  12746.  rts
  12747.  
  12748. key_interrupt:
  12749. ;        movem.l    d0-d7/a0-a6,-(sp)
  12750.  
  12751. ;        move.w    INTREQR,d0
  12752. ;        btst    #3,d0
  12753. ;        beq    .not_key
  12754.  
  12755.         move.b    $bfdd00,d0
  12756.         btst    #0,d0
  12757.         bne    .key_cont
  12758. ;        move.b    $bfed01,d0
  12759. ;        btst    #0,d0
  12760. ;        bne    .key_cont
  12761.     
  12762. ;        btst    #3,d0
  12763. ;        beq    .key_cont
  12764.  
  12765.         move.b    $bfec01,d0
  12766.         clr.b    $bfec01
  12767.  
  12768.         tst.b    d0
  12769.         beq    .key_cont
  12770.  
  12771. ;        bset    #6,$bfee01
  12772. ;        move.b    #$f0,$bfe401
  12773. ;        move.b    #$00,$bfe501
  12774. ;        bset    #0,$bfee01
  12775.  
  12776.  
  12777.         not.b    d0
  12778.         ror.b    #1,d0
  12779.         lea.l    KeyMap,a0
  12780.         tst.b    d0
  12781.         bmi.b    .key_up
  12782.         and.w    #$7f,d0
  12783. ;        add.w    #1,d0
  12784.         move.b    #$ff,(a0,d0.w)
  12785.         move.b    d0,lastpressed
  12786.  
  12787.         bra.b    .key_cont2
  12788. .key_up:
  12789.         and.w    #$7f,d0
  12790. ;        add.w    #1,d0
  12791.         move.b    #$00,(a0,d0.w)
  12792.  
  12793. .key_cont2
  12794. ;        btst    #0,$bfed01
  12795. ;        beq    .key_cont2
  12796. ;        move.b    #%00000000,$bfee01
  12797. ;        move.b    #%10001000,$bfed01
  12798.  
  12799. ;alt keys should not be independent so overlay ralt on lalt
  12800.  
  12801.         
  12802. .key_cont
  12803.  
  12804. ;        move.w    #$0008,INTREQ
  12805. .not_key:    ;lea.l    $dff000,a5
  12806.  
  12807. ;        lea.l    _keypressed(pc),a0
  12808. ;        move.b    101(a0),d0    ;read LALT
  12809. ;        or.b    102(a0),d0    ;blend it with RALT
  12810. ;        move.b    d0,127(a0)    ;save in combined position
  12811.  
  12812. ;        movem.l    (sp)+,d0-d7/a0-a6
  12813.         move.w #0,d0
  12814.         tst.w d0
  12815.  
  12816.         rts
  12817.  
  12818. lastpressed:    dc.b 0
  12819. KInt_CCode    Ds.b    1
  12820. KInt_Askey    Ds.b    1
  12821. KInt_OCode    Ds.w    1
  12822.  
  12823.  
  12824. OldSpace: dc.b 0
  12825. SpaceTapped: dc.b 0
  12826. PLR1_SPCTAP: dc.b 0
  12827. PLR2_SPCTAP: dc.b 0
  12828. PLR3_SPCTAP: dc.b 0
  12829. PLR1_Ducked: dc.b 0
  12830. PLR2_Ducked: dc.b 0
  12831. PLR3_Ducked: dc.b 0
  12832.  even
  12833.  
  12834. PLR1_Squished: dc.w 0
  12835. PLR2_Squished: dc.w 0
  12836. PLR1s_SquishedHeight: dc.l 0
  12837. PLR2s_SquishedHeight: dc.l 0
  12838. PLR3s_SquishedHeight: dc.l 0
  12839.  
  12840.  include "ab3:source_4000/multiPLR1CONTROL.s"
  12841.  include "ab3:source_4000/multiPLR2CONTROL.s"
  12842.  include "ab3:source_4000/PLR3CONTROL.s"
  12843.  include "ab3:source_4000/multiFALL.s"
  12844.  
  12845.  
  12846.  
  12847. *******************************************8
  12848.  
  12849. nullmessage: dcb.b 160,' '
  12850.  
  12851. SENDMESSAGENORET
  12852.  move.l a1,-(a7)
  12853.  bra intosend
  12854.  
  12855. SENDMESSAGE:
  12856.  
  12857.  move.l a1,-(a7)
  12858.  
  12859.  move.l MESSPTR,a1
  12860.  move.l d0,(a1)+
  12861.  cmp.l #ENDMESSBUFF,a1
  12862.  blt.s .okinbuff
  12863.  move.l #MESSAGEBUFFER,a1
  12864. .okinbuff:
  12865.  move.l a1,MESSPTR
  12866.  move.l a1,LASTMESSPTR
  12867.  
  12868. intosend:
  12869.  
  12870.  move.l d0,SCROLLPOINTER
  12871.  move.w #0,SCROLLXPOS
  12872.  add.l #160,d0
  12873.  move.l d0,ENDSCROLL
  12874.  move.w #40,SCROLLTIMER
  12875.  
  12876.  move.l (a7)+,a1
  12877.  rts
  12878.  
  12879. RETRIEVEPREVMESSAGE:
  12880.  
  12881.  move.l LASTMESSPTR,a1
  12882.  cmp.l #MESSAGEBUFFER,a1
  12883.  bgt.s .okinbuff
  12884.  
  12885.  move.l #ENDMESSBUFF,a1
  12886.  
  12887. .okinbuff:
  12888.  
  12889.  move.l -(a1),d0
  12890.  beq.s .nomessage
  12891.  
  12892.  move.l d0,SCROLLPOINTER
  12893.  move.w #0,SCROLLXPOS
  12894.  add.l #160,d0
  12895.  move.l d0,ENDSCROLL
  12896.  move.w #40,SCROLLTIMER
  12897.  
  12898.  move.l a1,LASTMESSPTR
  12899.  
  12900. .nomessage:
  12901.  
  12902.  
  12903.  rts
  12904.  
  12905. MESSAGEBUFFER:
  12906.  ds.l 20
  12907. ENDMESSBUFF:
  12908.  
  12909. MESSPTR: dc.l MESSAGEBUFFER
  12910. LASTMESSPTR: dc.l MESSAGEBUFFER
  12911.  
  12912. **********************************************
  12913.  
  12914.  
  12915.  
  12916. prot7: dc.w 0
  12917.  
  12918. GOTTOSEND: dc.w 0
  12919.  
  12920. COUNTER: dc.w 0
  12921. COUNTER2: dc.w 0
  12922. COUNTSPACE: ds.b 160
  12923.  
  12924. OtherInter:
  12925.  move.w #$0010,$dff000+intreq
  12926.  movem.l d0-d7/a0-a6,-(a7)
  12927.  bra justshake
  12928.  
  12929.     cnop 0,4
  12930.  
  12931. BlitterInterrupt:
  12932.  
  12933.  movem.l d0-d7/a0-a6,-(a7)
  12934.  move.w    #$0040,$dff09c        ; Clear REQ bits
  12935.  
  12936.  move.l main_bltint,d0
  12937.  beq.s .noint
  12938.  move.l d0,a0
  12939.  jsr (a0)
  12940. .noint:
  12941.  movem.l (a7)+,d0-d7/a0-a6
  12942.  
  12943.  rts
  12944.  
  12945. Chan0inter:
  12946.  
  12947.     add.l #1,counter
  12948.     add.l #1,main_counter
  12949.     tst.l timer
  12950.     beq.s .nodec
  12951.     subq.l #1,timer    
  12952. .nodec:
  12953.  
  12954.     SAVEREGS
  12955.     jsr    .routine
  12956.  
  12957.     move.l main_vblint,d0
  12958.     beq.s .noint
  12959.         move.l d0,a0
  12960.         jsr (a0)    
  12961. .noint:
  12962.  
  12963.     GETREGS
  12964. ;    move.w    #1024+'.',$dff030
  12965.     
  12966.     moveq #1,d0
  12967.     rts
  12968.  
  12969. .routine
  12970.  
  12971.     
  12972. ;w move.w #$0010,$dff000+intreq
  12973.  
  12974.  tst.b doanything
  12975.  bne dosomething
  12976.  
  12977.  movem.l d0-d7/a0-a6,-(a7)
  12978.  bra JUSTSOUNDS
  12979.  
  12980.  rts
  12981.  
  12982. tabheld: dc.w 0
  12983. ObjWork: ds.l 600
  12984. WORKPTR: dc.l 0
  12985. thistime: dc.w 0
  12986.  
  12987. DOALLANIMS:
  12988.  
  12989.  sub.b #1,thistime
  12990.  ble.s .okdosome
  12991.  rts
  12992.  
  12993. .okdosome:
  12994.  move.b #5,thistime
  12995.  
  12996.  
  12997.  move.l #ObjWork,a5
  12998.  move.l ObjectData,a0
  12999. Objectloop2:
  13000.  tst.w (a0)
  13001.  blt doneallobj2
  13002.  move.w 12(a0),d0
  13003.  blt doneobj2
  13004.  move.w d0,GraphicRoom(a0)
  13005.  tst.b worry(a0)
  13006.  beq.s doneobj2
  13007.  
  13008.  move.b 16(a0),d0
  13009.  cmp.b #1,d0
  13010.  blt JUMPALIENANIM
  13011. ; beq JUMPOBJECTANIM
  13012. ; cmp.b #2,d0
  13013. ; beq JUMPBULLET
  13014.  
  13015. doneobj2:
  13016.  
  13017.  adda.w #64,a0
  13018.  addq #8,a5
  13019.  bra Objectloop2
  13020.  
  13021. doneallobj2:
  13022.  rts
  13023.  
  13024. JUMPALIENANIM:
  13025.  
  13026.  moveq #0,d0
  13027.  move.b WhichAnim(a0),d0
  13028. ; 0=walking
  13029. ; 1=attacking
  13030. ; 2=getting hit
  13031. ; 3=dying
  13032.  
  13033.  cmp.b #1,d0
  13034.  blt.s ALWALK
  13035.  beq.s ALATTACK
  13036.  
  13037.  cmp.b #3,d0
  13038.  blt ALGETHIT
  13039.  beq ALDIE
  13040.  
  13041.  bra doneobj2
  13042.  
  13043. ALDIE
  13044.  move.l #10,d0
  13045.  bra intowalk
  13046.  
  13047. ALGETHIT:
  13048.  move.l #9,d0
  13049.  bra intowalk
  13050.  
  13051. ALATTACK:
  13052.  move.l #8,d0
  13053.  bra intowalk
  13054.  
  13055. AUXOBJ: dc.w 0
  13056.  
  13057. ALWALK:
  13058.  
  13059. ; jsr ViewpointToDraw
  13060. ; add.l d0,d0
  13061. ; 
  13062. ; move.l LINKFILE,a6
  13063. ; add.l #AlienStats,a6
  13064. ; moveq #0,d1
  13065. ; move.b TypeOfThing(a0),d1
  13066. ; muls #AlienStatLen,d1
  13067. ; add.l d1,a6
  13068. ; cmp.w #1,A_GFXType(a6)
  13069. ; bne.s NOSIDES2
  13070.  
  13071.  moveq #0,d0
  13072. intowalk:
  13073.  
  13074. NOSIDES2:
  13075.  
  13076.  move.b d0,2(a5)
  13077.  move.l LINKFILE,a6
  13078.  
  13079.  add.l #AlienAnimData,a6
  13080.  
  13081.  moveq #0,d1
  13082.  move.b TypeOfThing(a0),d1
  13083.  move.w .valtables+4(pc,d1.w*8),d1
  13084. ; muls #A_AnimLen,d1
  13085.  add.l d1,a6
  13086.  
  13087. ; move.l ANIMPOINTER,a6
  13088.  
  13089. ; muls #A_OptLen,d0
  13090.  move.w .valtables+2(pc,d0.w*8),d0
  13091.  add.w d0,a6
  13092.  
  13093.  move.w SecTimer(a0),d1
  13094.  move.w d1,d2
  13095. ; muls #A_FrameLen,d1
  13096.  move.w .valtables(pc,d1.w*8),d1
  13097.  
  13098.  moveq #0,d0
  13099.  move.b 5(a6,d1.w),d0
  13100.  beq.s .nosoundmake
  13101.  
  13102.  movem.l d0-d7/a0-a6,-(a7)
  13103.  subq #1,d0
  13104.  move.w d0,Samplenum
  13105.  clr.b notifplaying
  13106.  move.w (a0),IDNUM
  13107.  move.w #80,Noisevol
  13108.  move.l #ObjRotated,a1
  13109.  move.w (a0),d0
  13110.  lea (a1,d0.w*8),a1
  13111.  move.l (a1),Noisex
  13112.  jsr MakeSomeNoise
  13113.  movem.l (a7)+,d0-d7/a0-a6
  13114. .nosoundmake
  13115.  
  13116.  move.b 6(a6,d1.w),d0
  13117.  beq.s .noaction
  13118.  add.b #1,(a5)
  13119.  move.b d2,1(a5)
  13120. .noaction
  13121.  
  13122.  addq #1,d2
  13123.  
  13124.  moveq #0,d0
  13125.  move.b 7(a6,d1.w),d0
  13126.  beq .nospecial
  13127.  bra .special
  13128.  
  13129. .valtables:
  13130. val SET 0
  13131.  REPT 20
  13132.  dc.w A_FrameLen*val,A_OptLen*val
  13133.  dc.w A_AnimLen*val,0
  13134. val SET val+1
  13135.  ENDR
  13136.  
  13137. .special
  13138.  move.b d0,d3
  13139.  and.w #63,d3
  13140.  lsr.w #6,d0
  13141.  cmp.w #2,d0
  13142.  blt.s .storeval
  13143.  beq.s .randval
  13144.  
  13145.  sub.b #1,4(a5)
  13146.  beq.s .nospecial
  13147.  
  13148.  move.w d3,d2
  13149.  bra.s .nospecial
  13150.  
  13151. .randval:
  13152.  jsr GetRand
  13153.  divs d3,d0
  13154.  swap d0
  13155.  move.w d0,d3
  13156.  
  13157. .storeval:
  13158.  move.b d3,4(a5)
  13159. .nospecial:
  13160.  
  13161. ; move.w d2,d3
  13162.  move.w .valtables2(pc,d2.w*8),d3
  13163. ; muls #A_FrameLen,d3
  13164.  tst.b (a6,d3.w)
  13165.  bge.s .noendanim
  13166.  st 3(a5)
  13167.  move.w #0,d2
  13168. .noendanim
  13169.  move.w d2,SecTimer(a0)
  13170.  
  13171.  bra doneobj2
  13172.  
  13173. .valtables2:
  13174. val SET 0
  13175.  REPT 20
  13176.  dc.w A_FrameLen*val,A_OptLen*val
  13177.  dc.w A_AnimLen*val,0
  13178. val SET val+1
  13179.  ENDR
  13180.  
  13181.  
  13182. JUMPOBJECTANIM:
  13183.  bra doneobj2
  13184.  
  13185. timetodamage: dc.w 0
  13186. SAVESAVE: dc.w 0
  13187.  
  13188. dosomething:
  13189.  
  13190.  
  13191.  
  13192.  addq.w #1,FramesToDraw
  13193.  movem.l d0-d7/a0-a6,-(a7)
  13194.  
  13195.  jsr NARRATOR
  13196.  
  13197.  bsr DOALLANIMS
  13198.  
  13199.  sub.w #1,timetodamage
  13200.  bgt .nodam
  13201.  
  13202.  move.w #100,timetodamage
  13203.  
  13204.  move.l PLR1_Roompt,a0
  13205.  move.w ToFloorNoise(a0),d0
  13206.  tst.b PLR1_StoodInTop
  13207.  beq.s .okinbot
  13208.  move.w ToUpperFloorNoise(a0),d0
  13209. .okinbot:
  13210.  
  13211.  move.l LINKFILE,a0
  13212.  add.l #FloorData,a0
  13213.  move.w (a0,d0.w*4),d0    ; damage. 
  13214.  move.l PLR1_Obj,a0
  13215.  add.b d0,damagetaken(a0)
  13216.  
  13217.  move.l PLR2_Roompt,a0
  13218.  move.w ToFloorNoise(a0),d0
  13219.  tst.b PLR2_StoodInTop
  13220.  beq.s .okinbot2
  13221.  move.w ToUpperFloorNoise(a0),d0
  13222. .okinbot2:
  13223.  
  13224.  move.l LINKFILE,a0
  13225.  add.l #FloorData,a0
  13226.  move.w (a0,d0.w*4),d0    ; damage. 
  13227.  
  13228.  move.l PLR2_Obj,a0
  13229.  add.b d0,damagetaken(a0)
  13230.  
  13231.  move.l PLR3_Roompt,a0
  13232.  move.w ToFloorNoise(a0),d0
  13233.  tst.b PLR3_StoodInTop
  13234.  beq.s .okinbot3
  13235.  move.w ToUpperFloorNoise(a0),d0
  13236. .okinbot3:
  13237.  
  13238.  move.l LINKFILE,a0
  13239.  add.l #FloorData,a0
  13240.  move.w (a0,d0.w*4),d0    ; damage. 
  13241.  
  13242.  move.l PLR3_Obj,a0
  13243.  add.b d0,damagetaken(a0)
  13244.  
  13245.  
  13246. .nodam:
  13247.  
  13248.  move.l #KeyMap,a5
  13249.  
  13250.  tst.b 82(a5)    ;f3
  13251.  beq notogglesound
  13252.  
  13253.  tst.b lasttogsound
  13254.  bne notogglesound2
  13255.  
  13256.  st lasttogsound
  13257.  
  13258.  move.w TOPPOPT,d0
  13259.  addq #1,d0
  13260.  and.w #3,d0
  13261.  move.w d0,TOPPOPT
  13262.  move.b STEROPT(pc,d0.w*2),STEREO
  13263.  
  13264.  
  13265.  move.b STEROPT+1(pc,d0.w*2),d1
  13266.  muls #160,d0
  13267.  add.l #SOUNDOPTSTEXT,d0
  13268.  jsr SENDMESSAGE
  13269.  
  13270.  
  13271.  move.b d1,Prefsfile+1
  13272.  
  13273.  bra pastster
  13274.  
  13275.  STEROPT:
  13276.  dc.b 0,4
  13277.  dc.b $FF,4
  13278.  dc.b 0,8
  13279.  dc.b $ff,8
  13280.  
  13281. lasttogsound: dc.w 0
  13282.  
  13283. SOUNDOPTSTEXT:
  13284. ;      1234567890123456789012345678901234567890
  13285.  dc.b "Four Channel Mono Selected              "
  13286.  dc.b "                                        "
  13287.  dc.b "                                        "
  13288.  dc.b "                                        "
  13289.  
  13290.  dc.b "Four Channel Stereo Selected            "
  13291.  dc.b "                                        "
  13292.  dc.b "                                        "
  13293.  dc.b "                                        "
  13294.  
  13295.  dc.b "Eight Channel Mono Selected             "
  13296.  dc.b "                                        "
  13297.  dc.b "                                        "
  13298.  dc.b "                                        "
  13299.  
  13300.  dc.b "Eight Channel Stereo Selected           "
  13301.  dc.b "                                        "
  13302.  dc.b "                                        "
  13303.  dc.b "                                        "
  13304.  
  13305. LIGHTING: dc.w $FFff
  13306. OLDLTOG: dc.w 0
  13307.  
  13308. pastster:
  13309.  
  13310.  cmp.b #'4',d1
  13311.  seq.s CHANNELDATA+8
  13312.  seq.s CHANNELDATA+12
  13313.  seq.s CHANNELDATA+24
  13314.  seq.s CHANNELDATA+28
  13315.  
  13316. * Mt_init *********************
  13317.  st CHANNELDATA+8
  13318.  st CHANNELDATA
  13319. *******************************
  13320.  
  13321.  move.w #$f,$dff000+dmacon
  13322.  move.l #null,$dff0a0
  13323.  move.w #100,$dff0a4
  13324.  move.w #443,$dff0a6
  13325.  move.w #63,$dff0a8
  13326.  
  13327.  move.l #null2,$dff0b0
  13328.  move.w #100,$dff0b4
  13329.  move.w #443,$dff0b6
  13330.  move.w #63,$dff0b8
  13331.  
  13332.  move.l #null4,$dff0c0
  13333.  move.w #100,$dff0c4
  13334.  move.w #443,$dff0c6
  13335.  move.w #63,$dff0c8
  13336.  
  13337.  move.l #null3,$dff0d0
  13338.  move.w #100,$dff0d4
  13339.  move.w #443,$dff0d6
  13340.  move.w #63,$dff0d8
  13341.  
  13342.  move.l #empty,pos0LEFT
  13343.  move.l #empty,pos1LEFT
  13344.  move.l #empty,pos2LEFT
  13345.  move.l #empty,pos3LEFT
  13346.  move.l #empty,pos0RIGHT
  13347.  move.l #empty,pos1RIGHT
  13348.  move.l #empty,pos2RIGHT
  13349.  move.l #empty,pos3RIGHT
  13350.  move.l #emptyend,Samp0endLEFT
  13351.  move.l #emptyend,Samp1endLEFT
  13352.  move.l #emptyend,Samp2endLEFT
  13353.  move.l #emptyend,Samp3endLEFT
  13354.  move.l #emptyend,Samp0endRIGHT
  13355.  move.l #emptyend,Samp1endRIGHT
  13356.  move.l #emptyend,Samp2endRIGHT
  13357.  move.l #emptyend,Samp3endRIGHT
  13358.  
  13359.  move.w #10,d3
  13360. .willy
  13361.  btst #0,$dff000+intreqrl
  13362.  beq.s .willy
  13363.  move.w #1,$dff000+intreq
  13364.  
  13365.  dbra d3,.willy
  13366.  
  13367.  move.w #$820f,$dff000+dmacon
  13368.  
  13369.  bra notogglesound2
  13370.  
  13371. Prefsfile:
  13372.  dc.b 'k4nx'
  13373.  
  13374. notogglesound:
  13375.  clr.b lasttogsound
  13376. notogglesound2:
  13377.  
  13378.  
  13379.  tst.b 83(a5)
  13380.  beq nolighttoggle
  13381.  tst.b OLDLTOG
  13382.  bne nolighttoggle2
  13383.  st OLDLTOG
  13384.  
  13385.  move.l #LIGHTINGTEXT,d0
  13386.  not.b LIGHTING
  13387.  beq.s .noon
  13388.  add.l #160,d0
  13389. .noon:
  13390.  bra pastlighttext
  13391.  
  13392. LIGHTINGTEXT:
  13393.  dc.b "Lighting Effects Deactivated            "
  13394.  dc.b "                                        "
  13395.  dc.b "                                        "
  13396.  dc.b "                                        "
  13397.  
  13398.  dc.b "Lighting Effects Activated              "
  13399.  dc.b "                                        "
  13400.  dc.b "                                        "
  13401.  dc.b "                                        "
  13402.  
  13403. OLDRET: dc.w 0
  13404. OLDCENT: dc.w 0
  13405. OLDGOOD: dc.w 0
  13406.  
  13407. GOODRENDERTXT:
  13408.  dc.b "Rendering Quality : High                "
  13409.  dc.b "                                        "
  13410.  dc.b "                                        "
  13411.  dc.b "                                        "
  13412. BADRENDERTXT:
  13413.  dc.b "Rendering Quality : Reduced             "
  13414.  dc.b "                                        "
  13415.  dc.b "                                        "
  13416.  dc.b "                                        "
  13417.  
  13418. pastlighttext:
  13419.  
  13420.  jsr SENDMESSAGE
  13421.  
  13422. ; move.l d0,SCROLLPOINTER
  13423. ; move.w #0,SCROLLXPOS
  13424. ; add.l #160,d0
  13425. ; move.l d0,ENDSCROLL
  13426. ; move.w #40,SCROLLTIMER 
  13427.  
  13428.  bra nolighttoggle2
  13429.  
  13430. nolighttoggle:
  13431.  clr.b OLDLTOG
  13432. nolighttoggle2:
  13433.  
  13434.  
  13435.  tst.b 84(a5)
  13436.  beq.s noret
  13437.  tst.b OLDRET
  13438.  bne.s noret2
  13439.  st OLDRET
  13440.  
  13441.  jsr RETRIEVEPREVMESSAGE
  13442.  
  13443.  bra noret2
  13444.  
  13445. noret
  13446.  clr.b OLDRET
  13447. noret2:
  13448.  
  13449.  tst.b 85(a5)
  13450.  beq.s .nogood
  13451.  tst.b OLDGOOD
  13452.  bne.s .nogood2
  13453.  st OLDGOOD
  13454.  
  13455.  move.l #GOODRENDERTXT,d0
  13456.  not.b GOODRENDER
  13457.  bne.s .okgood
  13458.  move.l #BADRENDERTXT,d0
  13459. .okgood:
  13460.  
  13461.  jsr SENDMESSAGE
  13462.  
  13463.  bra .nogood2
  13464.  
  13465. .nogood
  13466.  clr.b OLDGOOD
  13467. .nogood2:
  13468.  
  13469.  
  13470.  tst.b $42(a5)
  13471.  bne.s .tabprsd
  13472.  clr.b tabheld
  13473.  bra.s .noswitch
  13474.  
  13475. .tabprsd:
  13476.  tst.b tabheld
  13477.  bne.s .noswitch
  13478.  not.b MAPON
  13479.  st tabheld
  13480. .noswitch
  13481.  
  13482.  tst.b $3e(a5)
  13483.  sne d0
  13484.  tst.b $1e(a5)
  13485.  sne d1
  13486.  tst.b $2d(a5)
  13487.  sne d2
  13488.  tst.b $2f(a5)
  13489.  sne d3
  13490.  
  13491.  tst.b $3d(a5)
  13492.  sne d4
  13493.  tst.b $3f(a5)
  13494.  sne d5
  13495.  tst.b $1d(a5)
  13496.  sne d6
  13497.  tst.b $1f(a5)
  13498.  sne d7
  13499.  
  13500.  or.b d4,d0
  13501.  or.b d5,d0
  13502.  or.b d6,d1
  13503.  or.b d7,d1
  13504.  or.b d4,d2
  13505.  or.b d6,d2
  13506.  or.b d7,d3
  13507.  or.b d5,d3
  13508.  
  13509.  move.w MAPBRIGHT,d4
  13510.  add.w #2,d4
  13511.  clr.l d5
  13512.  bset d4,d5
  13513.  
  13514.  tst.b d0
  13515.  beq.s .nomapup
  13516.  sub.w d5,mapzoff
  13517. .nomapup 
  13518.  
  13519.  tst.b d1
  13520.  beq.s .nomapdown
  13521.  add.w d5,mapzoff
  13522. .nomapdown 
  13523.  
  13524.  tst.b d2
  13525.  beq.s .nomapleft
  13526.  add.w d5,mapxoff
  13527. .nomapleft 
  13528.  
  13529.  tst.b d3
  13530.  beq.s .nomapright
  13531.  sub.w d5,mapxoff
  13532. .nomapright 
  13533.  
  13534.  tst.b $2e(a5)
  13535.  beq.s .nomapcentre
  13536.  
  13537.  move.w #0,mapxoff
  13538.  move.w #0,mapzoff
  13539.  
  13540. .nomapcentre
  13541.  
  13542. ; move.w STOPOFFSET,d0
  13543. ; tst.b 27(a5)
  13544. ; beq.s .nolookup
  13545. ; sub.w #5,d0
  13546. ; cmp.w #-80,d0
  13547. ; bgt.s .nolookup
  13548. ; move.w #-80,d0
  13549. ;.nolookup:
  13550. ; tst.b 42(a5)
  13551. ; beq.s .nolookdown
  13552. ; add.w #5,d0
  13553. ; cmp.w #80,d0
  13554. ; blt.s .nolookdown
  13555. ; move.w #80,d0
  13556. ;.nolookdown:
  13557. ;
  13558. ; move.w d0,STOPOFFSET
  13559. ; neg.w d0
  13560. ; add.w #120,d0
  13561. ; move.w d0,SMIDDLEY
  13562. ; muls #320*2,d0
  13563. ; move.l d0,SBIGMIDDLEY
  13564.  
  13565.  
  13566. ; jsr INITREC
  13567. ; jsr RECEIVE
  13568.  
  13569. ; tst.l BUFFER
  13570. ; beq.s justshake
  13571. ; st GOTTOSEND
  13572. ; move.l #OtherInter,$6c
  13573.  
  13574. justshake:
  13575.  
  13576. ; cmp.b #'b',Prefsfile+3
  13577. ; bne.s .noback
  13578.  
  13579.  
  13580.  jsr mt_music
  13581.  
  13582.  
  13583.  
  13584. ;.noback:
  13585.  
  13586.  bra dontshowtime
  13587.  
  13588.  tst.b oktodisplay
  13589.  beq dontshowtime
  13590.  clr.b oktodisplay
  13591.  subq.w #1,dispco
  13592.  bgt dontshowtime
  13593.  move.w #10,dispco
  13594.  
  13595.  move.l #TimerScr+10,a0
  13596.  move.l TimeCount,d0
  13597.  bge.s timenotneg
  13598.  move.l #1111*256,d0
  13599. timenotneg:
  13600.  asr.l #8,d0
  13601.  move.l #digits,a1
  13602.  move.w #7,d2
  13603. digitlop
  13604.  divs #10,d0
  13605.  swap d0
  13606.  lea (a1,d0.w*8),a2
  13607.  move.b (a2)+,(a0)
  13608.  move.b (a2)+,24(a0)
  13609.  move.b (a2)+,24*2(a0)
  13610.  move.b (a2)+,24*3(a0)
  13611.  move.b (a2)+,24*4(a0)
  13612.  move.b (a2)+,24*5(a0)
  13613.  move.b (a2)+,24*6(a0)
  13614.  move.b (a2)+,24*7(a0)
  13615.  subq #1,a0
  13616.  swap d0
  13617.  ext.l d0
  13618.  dbra d2,digitlop
  13619.  
  13620.  move.l #TimerScr+10+24*10,a0
  13621.  move.l NumTimes,d0
  13622.  move.l #digits,a1
  13623.  move.w #3,d2
  13624. digitlop2
  13625.  divs #10,d0
  13626.  swap d0
  13627.  lea (a1,d0.w*8),a2
  13628.  move.b (a2)+,(a0)
  13629.  move.b (a2)+,24(a0)
  13630.  move.b (a2)+,24*2(a0)
  13631.  move.b (a2)+,24*3(a0)
  13632.  move.b (a2)+,24*4(a0)
  13633.  move.b (a2)+,24*5(a0)
  13634.  move.b (a2)+,24*6(a0)
  13635.  move.b (a2)+,24*7(a0)
  13636.  subq #1,a0
  13637.  swap d0
  13638.  ext.l d0
  13639.  dbra d2,digitlop2
  13640.  
  13641.  move.l #TimerScr+10+24*20,a0
  13642.  moveq #0,d0
  13643.  move.w FramesToDraw,d0
  13644.  move.l #digits,a1
  13645.  move.w #2,d2
  13646. digitlop3
  13647.  divs #10,d0
  13648.  swap d0
  13649.  lea (a1,d0.w*8),a2
  13650.  move.b (a2)+,(a0)
  13651.  move.b (a2)+,24(a0)
  13652.  move.b (a2)+,24*2(a0)
  13653.  move.b (a2)+,24*3(a0)
  13654.  move.b (a2)+,24*4(a0)
  13655.  move.b (a2)+,24*5(a0)
  13656.  move.b (a2)+,24*6(a0)
  13657.  move.b (a2)+,24*7(a0)
  13658.  subq #1,a0
  13659.  swap d0
  13660.  ext.l d0
  13661.  dbra d2,digitlop3
  13662.  
  13663. dontshowtime:
  13664.  
  13665.  
  13666.  move.l alanptr,a0
  13667.  move.l (a0)+,alframe
  13668.  cmp.l #endalan,a0
  13669.  blt.s nostartalan
  13670.  move.l #alan,a0
  13671. nostartalan:
  13672.  move.l a0,alanptr
  13673.  
  13674.  
  13675.  tst.b READCONTROLS
  13676.  beq nocontrols
  13677.  
  13678.  cmp.b #'2',WHICHAMI
  13679.  beq control2
  13680.  bgt control3
  13681.  
  13682.  tst.w PLAYERONEHEALTH
  13683.  bgt .propercontrol
  13684.  
  13685.  move.l #7*2116,hitcol
  13686.  move.l GUN_OBJ,a0
  13687.  move.w #-1,12(a0)
  13688.  
  13689.  clr.b PLR1_fire
  13690.  clr.b PLR1_clicked
  13691.  move.w #0,ADDTOBOBBLE
  13692.  move.l #playercrouched,PLR1s_height
  13693.  move.w #-80,d0
  13694.  move.w d0,STOPOFFSET
  13695.  neg.w d0
  13696.  add.w TOTHEMIDDLE,d0
  13697.  move.w d0,SMIDDLEY
  13698.  muls #320,d0
  13699.  move.l d0,SBIGMIDDLEY
  13700.  jsr PLR1_fall
  13701.  
  13702.  move.l PLR1s_xspdval,d6
  13703.  move.l PLR1s_zspdval,d7
  13704.  
  13705.  tst.b SLOWDOWN
  13706.  beq.s .nofriction
  13707.  
  13708.  neg.l d6
  13709.  ble.s .nobug1
  13710.  asr.l #3,d6
  13711.  add.l #1,d6
  13712.  bra.s .bug1
  13713. .nobug1
  13714.  asr.l #3,d6
  13715. .bug1:
  13716.  
  13717.  neg.l d7
  13718.  ble.s .nobug2
  13719.  asr.l #3,d7
  13720.  add.l #1,d7
  13721.  bra.s .bug2
  13722. .nobug2
  13723.  asr.l #3,d7
  13724. .bug2: 
  13725.  
  13726.  add.l d6,PLR1s_xspdval
  13727.  add.l d7,PLR1s_zspdval
  13728.  
  13729. .nofriction:
  13730.  move.l PLR1s_xspdval,d6
  13731.  move.l PLR1s_zspdval,d7
  13732.  add.l d6,PLR1s_xoff
  13733.  add.l d7,PLR1s_zoff
  13734.  
  13735.  move.w PLR1s_angspd,d3
  13736.  tst.b SLOWDOWN
  13737.  beq.s .nofric
  13738.  asr.w #2,d3
  13739.  bge.s .nneg
  13740.  addq #1,d3
  13741. .nneg:
  13742. .nofric:
  13743.  
  13744.  move.w d3,PLR1s_angspd
  13745.  add.w d3,PLR1s_angpos
  13746.  add.w d3,PLR1s_angpos
  13747.  and.w #8190,PLR1s_angpos
  13748.  
  13749.  bra nocontrols
  13750.  
  13751. .propercontrol:
  13752.  
  13753.  tst.b PLR1MOUSE
  13754.  beq.s PLR1_nomouse
  13755.  bsr PLR1_mouse_control
  13756. PLR1_nomouse:
  13757.  tst.b PLR1KEYS
  13758.  beq.s PLR1_nokeys
  13759.  bsr PLR1_keyboard_control
  13760. PLR1_nokeys:
  13761. ; tst.b PLR1PATH
  13762. ; beq.s PLR1_nopath
  13763. ; bsr PLR1_follow_path
  13764. ;PLR1_nopath:
  13765.  tst.b PLR1JOY
  13766.  beq.s PLR1_nojoy
  13767.  bsr PLR1_JoyStick_control
  13768. PLR1_nojoy: 
  13769.  bra nocontrols
  13770.  
  13771. control2:
  13772.  
  13773.  tst.w PLAYERTWOHEALTH
  13774.  bgt .propercontrol
  13775.  
  13776.  move.l #7*2116,hitcol
  13777.  move.l GUN_OBJ,a0
  13778.  move.w #-1,12(a0)
  13779.  clr.b PLR2_fire
  13780.  move.w #0,ADDTOBOBBLE
  13781.  move.l #playercrouched,PLR2s_height
  13782.  move.w #-80,d0
  13783.  move.w d0,STOPOFFSET
  13784.  neg.w d0
  13785.  add.w TOTHEMIDDLE,d0
  13786.  move.w d0,SMIDDLEY
  13787.  muls #320,d0
  13788.  move.l d0,SBIGMIDDLEY
  13789.  jsr PLR2_fall
  13790.  
  13791.  move.l PLR2s_xspdval,d6
  13792.  move.l PLR2s_zspdval,d7
  13793.  
  13794.  tst.b SLOWDOWN
  13795.  beq.s .nofriction
  13796.  
  13797.  neg.l d6
  13798.  ble.s .nobug1
  13799.  asr.l #3,d6
  13800.  add.l #1,d6
  13801.  bra.s .bug1
  13802. .nobug1
  13803.  asr.l #3,d6
  13804. .bug1:
  13805.  
  13806.  neg.l d7
  13807.  ble.s .nobug2
  13808.  asr.l #3,d7
  13809.  add.l #1,d7
  13810.  bra.s .bug2
  13811. .nobug2
  13812.  asr.l #3,d7
  13813. .bug2: 
  13814.  
  13815.  add.l d6,PLR2s_xspdval
  13816.  add.l d7,PLR2s_zspdval
  13817.  
  13818. .nofriction:
  13819.  move.l PLR2s_xspdval,d6
  13820.  move.l PLR2s_zspdval,d7
  13821.  add.l d6,PLR2s_xoff
  13822.  add.l d7,PLR2s_zoff
  13823.  
  13824.  move.w PLR2s_angspd,d3
  13825.  tst.b SLOWDOWN
  13826.  beq.s .nofric
  13827.  asr.w #2,d3
  13828.  bge.s .nneg
  13829.  addq #1,d3
  13830. .nneg:
  13831. .nofric:
  13832.  
  13833.  move.w d3,PLR2s_angspd
  13834.  add.w d3,PLR2s_angpos
  13835.  add.w d3,PLR2s_angpos
  13836.  and.w #8190,PLR2s_angpos
  13837.  
  13838.  bra nocontrols
  13839.  
  13840. .propercontrol:
  13841.  tst.b PLR2MOUSE
  13842.  beq.s PLR2_nomouse
  13843.  bsr PLR2_mouse_control
  13844. PLR2_nomouse:
  13845.  tst.b PLR2KEYS
  13846.  beq.s PLR2_nokeys
  13847.  bsr PLR2_keyboard_control
  13848. PLR2_nokeys:
  13849. ; tst.b PLR2PATH
  13850. ; beq.s PLR2_nopath
  13851. ; bsr PLR1_follow_path
  13852. ;PLR2_nopath:
  13853.  tst.b PLR2JOY
  13854.  beq.s PLR2_nojoy
  13855.  bsr PLR2_JoyStick_control
  13856. PLR2_nojoy: 
  13857.  
  13858.  bra nocontrols
  13859.  
  13860. control3:
  13861.  
  13862.  tst.w PLAYERTHREEHEALTH
  13863.  bgt .propercontrol
  13864.  
  13865.  move.l #7*2116,hitcol
  13866.  move.l GUN_OBJ,a0
  13867.  move.w #-1,12(a0)
  13868.  clr.b PLR3_fire
  13869.  move.w #0,ADDTOBOBBLE
  13870.  move.l #playercrouched,PLR3s_height
  13871.  move.w #-80,d0
  13872.  move.w d0,STOPOFFSET
  13873.  neg.w d0
  13874.  add.w TOTHEMIDDLE,d0
  13875.  move.w d0,SMIDDLEY
  13876.  muls #320,d0
  13877.  move.l d0,SBIGMIDDLEY
  13878.  jsr PLR3_fall
  13879.  
  13880.  move.l PLR3s_xspdval,d6
  13881.  move.l PLR3s_zspdval,d7
  13882.  
  13883.  tst.b SLOWDOWN
  13884.  beq.s .nofriction
  13885.  
  13886.  neg.l d6
  13887.  ble.s .nobug1
  13888.  asr.l #3,d6
  13889.  add.l #1,d6
  13890.  bra.s .bug1
  13891. .nobug1
  13892.  asr.l #3,d6
  13893. .bug1:
  13894.  
  13895.  neg.l d7
  13896.  ble.s .nobug2
  13897.  asr.l #3,d7
  13898.  add.l #1,d7
  13899.  bra.s .bug2
  13900. .nobug2
  13901.  asr.l #3,d7
  13902. .bug2: 
  13903.  
  13904.  add.l d6,PLR3s_xspdval
  13905.  add.l d7,PLR3s_zspdval
  13906.  
  13907. .nofriction:
  13908.  move.l PLR3s_xspdval,d6
  13909.  move.l PLR3s_zspdval,d7
  13910.  add.l d6,PLR3s_xoff
  13911.  add.l d7,PLR3s_zoff
  13912.  
  13913.  move.w PLR3s_angspd,d3
  13914.  tst.b SLOWDOWN
  13915.  beq.s .nofric
  13916.  asr.w #2,d3
  13917.  bge.s .nneg
  13918.  addq #1,d3
  13919. .nneg:
  13920. .nofric:
  13921.  
  13922.  move.w d3,PLR3s_angspd
  13923.  add.w d3,PLR3s_angpos
  13924.  add.w d3,PLR3s_angpos
  13925.  and.w #8190,PLR3s_angpos
  13926.  
  13927.  bra.s nocontrols
  13928.  
  13929. .propercontrol:
  13930.  tst.b PLR3MOUSE
  13931.  beq.s PLR3_nomouse
  13932.  bsr PLR3_mouse_control
  13933. PLR3_nomouse:
  13934.  tst.b PLR3KEYS
  13935.  beq.s PLR3_nokeys
  13936.  bsr PLR3_keyboard_control
  13937. PLR3_nokeys:
  13938. ; tst.b PLR2PATH
  13939. ; beq.s PLR2_nopath
  13940. ; bsr PLR1_follow_path
  13941. ;PLR2_nopath:
  13942.  tst.b PLR3JOY
  13943.  beq.s PLR3_nojoy
  13944.  bsr PLR3_JoyStick_control
  13945. PLR3_nojoy: 
  13946.  
  13947.  
  13948. nocontrols:
  13949.  
  13950.  move.l #$dff000,a6
  13951.  
  13952.  tst.b dosounds
  13953.  beq.s nomuckabout
  13954.  
  13955.  cmp.b #'4',Prefsfile+1
  13956.  bne.s nomuckabout
  13957.  
  13958.  move.w #$0,d0 
  13959.  tst.b NoiseMade0LEFT
  13960.  beq.s noturnoff0
  13961.  move.w #1,d0
  13962. noturnoff0:
  13963.  tst.b NoiseMade0RIGHT
  13964.  beq.s noturnoff1
  13965.  or.w #2,d0
  13966. noturnoff1:
  13967.  tst.b NoiseMade1RIGHT
  13968.  beq.s noturnoff2
  13969.  or.w #4,d0
  13970. noturnoff2:
  13971.  tst.b NoiseMade1LEFT
  13972.  beq.s noturnoff3
  13973.  or.w #8,d0
  13974. noturnoff3:
  13975.  
  13976. *********************
  13977.  and.w #$fffe,d0
  13978. *********************
  13979.  
  13980.     move.w d0,dmacon(a6)
  13981.  
  13982. nomuckabout:
  13983.  
  13984.  
  13985. ; tst.b PLR2_fire
  13986. ; beq.s firenotpressed2
  13987. ; fire was pressed last time.
  13988. ; btst #7,$bfe001
  13989. ; bne.s firenownotpressed2
  13990. ; fire is still pressed this time.
  13991. ; st PLR2_fire
  13992. ; bra dointer
  13993.  
  13994. firenownotpressed2:
  13995. ; fire has been released.
  13996. ; clr.b PLR2_fire
  13997. ; bra dointer
  13998.  
  13999. firenotpressed2
  14000.  
  14001. ; fire was not pressed last frame...
  14002.  
  14003. ; btst #7,$bfe001
  14004. ; if it has still not been pressed, go back above
  14005. ; bne.s firenownotpressed2
  14006. ; fire was not pressed last time, and was this time, so has
  14007. ; been clicked.
  14008. ; st PLR2_clicked
  14009. ; st PLR2_fire
  14010.  
  14011. dointer
  14012.  
  14013. JUSTSOUNDS:
  14014.  
  14015.  tst.b dosounds
  14016.  beq.s .notthing
  14017.  
  14018.  cmp.b #'4',Prefsfile+1
  14019.     beq fourchannel
  14020.  
  14021.  btst #1,$dff000+intreqr
  14022.     bne.s newsampbitl
  14023.  
  14024. .notthing:
  14025.  
  14026. ; move.w #$f,$dff000+dmacon
  14027.  
  14028.  movem.l (a7)+,d0-d7/a0-a6
  14029.  
  14030.  moveq #0,d0
  14031.  rts
  14032.  
  14033.  
  14034. dosounds: dc.w 0
  14035.  
  14036. swappedem: dc.w 0
  14037.  
  14038. newsampbitl:
  14039.  
  14040.  
  14041.  
  14042.  move.w #$200,$dff000+intreq
  14043.  
  14044.  tst.b CHANNELDATA
  14045.  bne nochannel0
  14046.  
  14047.  move.l pos0LEFT,a0
  14048.  move.l pos2LEFT,a1
  14049.  
  14050.  move.l #tab,a2
  14051.  
  14052.  moveq #0,d0
  14053.  moveq #0,d1
  14054.  move.b vol0left,d0
  14055.  move.b vol2left,d1
  14056.  cmp.b d1,d0
  14057.  slt swappedem
  14058.  bge.s fbig0
  14059.  
  14060. ; d1 is bigger so scale d0 and use d1
  14061. ; as audiochannel volume.
  14062.  
  14063.  exg a0,a1
  14064.  asl.w #6,d0
  14065.  divs d1,d0
  14066.  lsl.w #8,d0
  14067.  adda.w d0,a2
  14068.  move.w d1,$dff0a8
  14069.  bra.s donechan0
  14070.  
  14071. fbig0:
  14072.  tst.w d0
  14073.  beq.s donechan0
  14074.  asl.w #6,d1
  14075.  divs d0,d1
  14076.  lsl.w #8,d1
  14077.  adda.w d1,a2
  14078.  move.w d0,$dff0a8
  14079.  
  14080. donechan0:
  14081.  
  14082.  move.l Aupt0,a3
  14083.  move.l a3,$dff0a0
  14084.  move.l Auback0,Aupt0
  14085.  move.l a3,Auback0
  14086.  
  14087.  move.l Auback0,a3
  14088.  
  14089.  moveq #0,d0
  14090.  moveq #0,d1
  14091.  moveq #0,d2
  14092.  moveq #0,d3
  14093.  moveq #0,d4
  14094.  moveq #0,d5
  14095.  move.w #49,d7
  14096. loop:
  14097.  move.l (a0)+,d0
  14098.  move.b (a1)+,d1
  14099.  move.b (a1)+,d2
  14100.  move.b (a1)+,d3
  14101.  move.b (a1)+,d4
  14102.  move.b (a2,d3.w),d5
  14103.  swap d5
  14104.  move.b (a2,d1.w),d5
  14105.  asl.l #8,d5
  14106.  move.b (a2,d2.w),d5
  14107.  swap d5
  14108.  move.b (a2,d4.w),d5
  14109.  add.l d5,d0
  14110.  move.l d0,(a3)+
  14111.  dbra d7,loop
  14112.  
  14113.  tst.b swappedem
  14114.  beq.s .ok23
  14115.  exg a0,a1
  14116. .ok23:
  14117.  
  14118.  cmp.l Samp0endLEFT,a0
  14119.  blt.s .notoffendsamp1
  14120.  move.l #empty,a0
  14121.  move.l #emptyend,Samp0endLEFT
  14122.  move.b #0,vol0left
  14123.  clr.w LEFTCHANDATA+32
  14124.  move.w #0,LEFTCHANDATA+2
  14125. .notoffendsamp1:
  14126.  
  14127.  cmp.l Samp2endLEFT,a1
  14128.  blt.s .notoffendsamp2
  14129.  move.l #empty,a1
  14130.  move.l #emptyend,Samp2endLEFT
  14131.  move.b #0,vol2left
  14132.  clr.w LEFTCHANDATA+32+8
  14133.  move.w #0,LEFTCHANDATA+2+8
  14134. .notoffendsamp2:
  14135.  
  14136.  move.l a0,pos0LEFT
  14137.  move.l a1,pos2LEFT
  14138.  
  14139. nochannel0:
  14140.  
  14141.  tst.b CHANNELDATA+16
  14142.  bne nochannel1
  14143.  
  14144.  
  14145.  move.l pos0RIGHT,a0
  14146.  move.l pos2RIGHT,a1
  14147.  
  14148.  move.l Aupt1,a3
  14149.  move.l a3,$dff0b0
  14150.  move.l Auback1,Aupt1
  14151.  move.l a3,Auback1
  14152.  
  14153.  move.l #tab,a2
  14154.  
  14155.  moveq #0,d0
  14156.  moveq #0,d1
  14157.  move.b vol0right,d0
  14158.  move.b vol2right,d1
  14159.  cmp.b d1,d0
  14160.  slt swappedem
  14161.  bge.s fbig1
  14162.  
  14163. ; d1 is bigger so scale d0 and use d1
  14164. ; as audiochannel volume.
  14165.  
  14166.  exg a0,a1
  14167.  asl.w #6,d0
  14168.  divs d1,d0
  14169.  lsl.w #8,d0
  14170.  adda.w d0,a2
  14171.  move.w d1,$dff0b8
  14172.  bra.s donechan1
  14173.  
  14174. fbig1:
  14175.  tst.w d0
  14176.  beq.s donechan1
  14177.  asl.w #6,d1
  14178.  divs d0,d1
  14179.  lsl.w #8,d1
  14180.  adda.w d1,a2
  14181.  move.w d0,$dff0b8
  14182.  
  14183. donechan1:
  14184.  moveq #0,d0
  14185.  moveq #0,d1
  14186.  moveq #0,d2
  14187.  moveq #0,d3
  14188.  moveq #0,d4
  14189.  moveq #0,d5
  14190.  move.w #49,d7
  14191. loop2:
  14192.  move.l (a0)+,d0
  14193.  move.b (a1)+,d1
  14194.  move.b (a1)+,d2
  14195.  move.b (a1)+,d3
  14196.  move.b (a1)+,d4
  14197.  move.b (a2,d3.w),d5
  14198.  swap d5
  14199.  move.b (a2,d1.w),d5
  14200.  asl.l #8,d5
  14201.  move.b (a2,d2.w),d5
  14202.  swap d5
  14203.  move.b (a2,d4.w),d5
  14204.  add.l d5,d0
  14205.  move.l d0,(a3)+
  14206.  dbra d7,loop2
  14207.  
  14208.  tst.b swappedem
  14209.  beq.s ok01
  14210.  exg a0,a1
  14211. ok01:
  14212.  
  14213.  cmp.l Samp0endRIGHT,a0
  14214.  blt.s .notoffendsamp1
  14215.  move.l #empty,a0
  14216.  move.l #emptyend,Samp0endRIGHT
  14217.  move.b #0,vol0right
  14218.  clr.w RIGHTCHANDATA+32
  14219.  move.w #0,RIGHTCHANDATA+2
  14220. .notoffendsamp1:
  14221.  
  14222.  cmp.l Samp2endRIGHT,a1
  14223.  blt.s .notoffendsamp2
  14224.  move.l #empty,a1
  14225.  move.l #emptyend,Samp2endRIGHT
  14226.  move.b #0,vol2right
  14227.  clr.w RIGHTCHANDATA+32+8
  14228.  move.w #0,RIGHTCHANDATA+2+8
  14229. .notoffendsamp2:
  14230.  
  14231.  move.l a0,pos0RIGHT
  14232.  move.l a1,pos2RIGHT
  14233.  
  14234. nochannel1:
  14235.  
  14236. ******************* Other two channels
  14237.  
  14238.  move.l pos1LEFT,a0
  14239.  move.l pos3LEFT,a1
  14240.  
  14241.  move.l #tab,a2
  14242.  
  14243.  moveq #0,d0
  14244.  moveq #0,d1
  14245.  move.b vol1left,d0
  14246.  move.b vol3left,d1
  14247.  cmp.b d1,d0
  14248.  slt swappedem
  14249.  bge.s fbig2
  14250.  
  14251. ; d1 is bigger so scale d0 and use d1
  14252. ; as audiochannel volume.
  14253.  
  14254.  exg a0,a1
  14255.  asl.w #6,d0
  14256.  divs d1,d0
  14257.  lsl.w #8,d0
  14258.  adda.w d0,a2
  14259.  move.w d1,$dff0d8
  14260.  bra.s donechan2
  14261.  
  14262. fbig2:
  14263.  tst.w d0
  14264.  beq.s donechan2
  14265.  asl.w #6,d1
  14266.  divs d0,d1
  14267.  lsl.w #8,d1
  14268.  adda.w d1,a2
  14269.  move.w d0,$dff0d8
  14270.  
  14271. donechan2:
  14272.  
  14273.  move.l Aupt2,a3
  14274.  move.l a3,$dff0d0
  14275.  move.l Auback2,Aupt2
  14276.  move.l a3,Auback2
  14277.  
  14278.  moveq #0,d0
  14279.  moveq #0,d1
  14280.  moveq #0,d2
  14281.  moveq #0,d3
  14282.  moveq #0,d4
  14283.  moveq #0,d5
  14284.  move.w #49,d7
  14285. loop3:
  14286.  move.l (a0)+,d0
  14287.  move.b (a1)+,d1
  14288.  move.b (a1)+,d2
  14289.  move.b (a1)+,d3
  14290.  move.b (a1)+,d4
  14291.  move.b (a2,d3.w),d5
  14292.  swap d5
  14293.  move.b (a2,d1.w),d5
  14294.  asl.l #8,d5
  14295.  move.b (a2,d2.w),d5
  14296.  swap d5
  14297.  move.b (a2,d4.w),d5
  14298.  add.l d5,d0
  14299.  move.l d0,(a3)+
  14300.  dbra d7,loop3
  14301.  
  14302.  tst.b swappedem
  14303.  beq.s .ok23
  14304.  exg a0,a1
  14305. .ok23:
  14306.  
  14307.  cmp.l Samp1endLEFT,a0
  14308.  blt.s .notoffendsamp3
  14309.  move.l #empty,a0
  14310.  move.l #emptyend,Samp1endLEFT
  14311.  move.b #0,vol1left
  14312.  clr.w LEFTCHANDATA+32+4
  14313.  move.w #0,LEFTCHANDATA+2+4
  14314. .notoffendsamp3:
  14315.  
  14316.  cmp.l Samp3endLEFT,a1
  14317.  blt.s .notoffendsamp4
  14318.  move.l #empty,a1
  14319.  move.l #emptyend,Samp3endLEFT
  14320.  move.b #0,vol3left
  14321.  clr.w LEFTCHANDATA+32+12
  14322.  move.w #0,LEFTCHANDATA+2+12
  14323. .notoffendsamp4:
  14324.  
  14325.  move.l a0,pos1LEFT
  14326.  move.l a1,pos3LEFT
  14327.  
  14328.  move.l pos1RIGHT,a0
  14329.  move.l pos3RIGHT,a1
  14330.  
  14331.  move.l Aupt3,a3
  14332.  move.l a3,$dff0c0
  14333.  move.l Auback3,Aupt3
  14334.  move.l a3,Auback3
  14335.  
  14336.  move.l #tab,a2
  14337.  
  14338.  moveq #0,d0
  14339.  moveq #0,d1
  14340.  move.b vol1right,d0
  14341.  move.b vol3right,d1
  14342.  cmp.b d1,d0
  14343.  slt.s swappedem
  14344.  bge.s fbig3
  14345.  
  14346.  exg a0,a1
  14347.  asl.w #6,d0
  14348.  divs d1,d0
  14349.  lsl.w #8,d0
  14350.  adda.w d0,a2
  14351.  move.w d1,$dff0c8
  14352.  bra.s donechan3
  14353.  
  14354. fbig3:
  14355.  tst.w d0
  14356.  beq.s donechan3
  14357.  asl.w #6,d1
  14358.  divs d0,d1
  14359.  lsl.w #8,d1
  14360.  adda.w d1,a2
  14361.  move.w d0,$dff0c8
  14362. donechan3:
  14363.  
  14364.  moveq #0,d0
  14365.  moveq #0,d1
  14366.  moveq #0,d2
  14367.  moveq #0,d3
  14368.  moveq #0,d4
  14369.  moveq #0,d5
  14370.  move.w #49,d7
  14371. loop4:
  14372.  move.l (a0)+,d0
  14373.  move.b (a1)+,d1
  14374.  move.b (a1)+,d2
  14375.  move.b (a1)+,d3
  14376.  move.b (a1)+,d4
  14377.  move.b (a2,d3.w),d5
  14378.  swap d5
  14379.  move.b (a2,d1.w),d5
  14380.  asl.l #8,d5
  14381.  move.b (a2,d2.w),d5
  14382.  swap d5
  14383.  move.b (a2,d4.w),d5
  14384.  add.l d5,d0
  14385.  move.l d0,(a3)+
  14386.  dbra d7,loop4
  14387.  
  14388.  tst.b swappedem
  14389.  beq.s .ok23
  14390.  exg a0,a1
  14391. .ok23:
  14392.  
  14393.  cmp.l Samp1endRIGHT,a0
  14394.  blt.s notoffendsamp3
  14395.  move.l #empty,a0
  14396.  move.l #emptyend,Samp1endRIGHT
  14397.  move.b #0,vol1right
  14398.  clr.w RIGHTCHANDATA+32+4
  14399.  move.w #0,RIGHTCHANDATA+2+4
  14400. notoffendsamp3:
  14401.  
  14402.  cmp.l Samp3endRIGHT,a1
  14403.  blt.s notoffendsamp4
  14404.  move.l #empty,a1
  14405.  move.l #emptyend,Samp3endRIGHT
  14406.  move.b #0,vol3right
  14407.  clr.w RIGHTCHANDATA+32+12
  14408.  move.w #0,RIGHTCHANDATA+2+12
  14409. notoffendsamp4:
  14410.  
  14411.  move.l a0,pos1RIGHT
  14412.  move.l a1,pos3RIGHT
  14413.  
  14414.  movem.l (a7)+,d0-d7/a0-a6
  14415. ; tst.b counting
  14416. ; beq .nostartcounter
  14417. ; JSR STARTCOUNT
  14418. ;.nostartcounter:
  14419.  
  14420.  move.w #$820f,$dff000+dmacon
  14421.  
  14422.  moveq #0,d0
  14423.  rts
  14424.  
  14425. ***********************************
  14426. * 4 channel sound routine
  14427. ***********************************
  14428.  
  14429. fourchannel:
  14430.  
  14431.  move.l #$dff000,a6
  14432.  
  14433.  tst.b LEFTCHANDATA
  14434.  bne.s NoChan0sound
  14435.  
  14436.  btst #7,intreqrl(a6)
  14437.  beq.s nofinish0
  14438. ; move.w #0,LEFTCHANDATA+2
  14439. ; st LEFTCHANDATA+1
  14440.  move.l #null,$a0(a6)
  14441.  move.w #100,$a4(a6) 
  14442.  move.w #$0080,intreq(a6)
  14443. nofinish0:
  14444.  
  14445.  tst.b NoiseMade0pLEFT
  14446.  beq.s NoChan0sound
  14447.  
  14448.  move.l Samp0endLEFT,d0
  14449.  move.l pos0LEFT,d1
  14450.  sub.l d1,d0
  14451.  lsr.l #1,d0
  14452.  move.w d0,$a4(a6)
  14453.  move.l d1,$a0(a6)
  14454.  ext.l d0
  14455.  divs #100,d0
  14456.  move.w d0,playnull0
  14457.  move.w #$8201,dmacon(a6)
  14458.  moveq #0,d0
  14459.  move.b vol0left,d0
  14460.  move.w d0,$a8(a6)
  14461.  
  14462. NoChan0sound:
  14463.  
  14464. *****************************************
  14465. *****************************************
  14466.  
  14467.  btst #0,intreqr(a6)
  14468.  beq.s nofinish1
  14469.  move.l #null,$b0(a6)
  14470.  move.w #100,$b4(a6)
  14471.  move.w #$0100,intreq(a6)
  14472. nofinish1:
  14473.  
  14474.  tst.b NoiseMade0pRIGHT
  14475.  beq.s NoChan1sound
  14476.  
  14477.  move.l Samp0endRIGHT,d0
  14478.  move.l pos0RIGHT,d1
  14479.  sub.l d1,d0
  14480.  lsr.l #1,d0
  14481.  move.w d0,$b4(a6)
  14482.  move.l d1,$b0(a6)
  14483.  ext.l d0
  14484.  divs #100,d0
  14485.  move.w d0,playnull1
  14486.  move.w #$8202,dmacon(a6)
  14487.  moveq #0,d0
  14488.  move.b vol0right,d0
  14489.  move.w d0,$b8(a6)
  14490.  
  14491. NoChan1sound:
  14492.  
  14493. *****************************************
  14494. *****************************************
  14495.  
  14496.  btst #1,intreqr(a6)
  14497.  beq.s nofinish2
  14498.  move.l #null,$c0(a6)
  14499.  move.w #100,$c4(a6)
  14500.  move.w #$0200,intreq(a6)
  14501. nofinish2:
  14502.  
  14503.  tst.b NoiseMade1pRIGHT
  14504.  beq.s NoChan2sound
  14505.  
  14506.  move.l Samp1endRIGHT,d0
  14507.  move.l pos1RIGHT,d1
  14508.  sub.l d1,d0
  14509.  lsr.l #1,d0
  14510.  move.w d0,$c4(a6)
  14511.  ext.l d0
  14512.  divs #100,d0
  14513.  move.w d0,playnull2
  14514.  
  14515.  move.l d1,$c0(a6)
  14516.  move.w #$8204,dmacon(a6)
  14517.  moveq #0,d0
  14518.  move.b vol1right,d0
  14519.  move.w d0,$c8(a6)
  14520.  
  14521. NoChan2sound:
  14522.  
  14523. *****************************************
  14524. *****************************************
  14525.  
  14526.  btst #2,intreqr(a6)
  14527.  beq.s nofinish3
  14528.  move.l #null,$d0(a6)
  14529.  move.w #100,$d4(a6)
  14530.  move.w #$0400,intreq(a6)
  14531. nofinish3:
  14532.  
  14533.  tst.b NoiseMade1pLEFT
  14534.  beq.s NoChan3sound
  14535.  
  14536.  move.l Samp1endLEFT,d0
  14537.  move.l pos1LEFT,d1
  14538.  sub.l d1,d0
  14539.  lsr.l #1,d0
  14540.  move.w d0,$d4(a6)
  14541.  ext.l d0
  14542.  divs #100,d0
  14543.  move.w d0,playnull3
  14544.  move.l d1,$d0(a6)
  14545.  move.w #$8208,dmacon(a6)
  14546.  moveq #0,d0
  14547.  move.b vol1left,d0
  14548.  move.w d0,$d8(a6)
  14549.  
  14550. NoChan3sound:
  14551.  
  14552. nomorechannels:
  14553.  
  14554.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  14555.  move.l #0,NoiseMade0LEFT
  14556.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  14557.  move.l #0,NoiseMade0RIGHT
  14558.  
  14559. ; tst.b playnull0
  14560. ; beq.s .nnul
  14561. ; sub.b #1,playnull0
  14562. ; bra.s chan0still
  14563. ;.nnul:
  14564. ; 
  14565. ;chan0still:
  14566.  
  14567.  tst.b NoiseMade0pLEFT
  14568.  bne.s chan0still
  14569.  tst.w playnull0
  14570.  beq.s nnul0
  14571.  sub.w #1,playnull0
  14572.  bra.s chan0still
  14573. nnul0:
  14574.  move.w #0,LEFTCHANDATA+2
  14575.  clr.w LEFTCHANDATA+32
  14576. chan0still:
  14577.  
  14578.  tst.b NoiseMade0pRIGHT
  14579.  bne.s chan1still    ;it'll never work
  14580.  tst.w playnull1
  14581.  beq.s nnul1
  14582.  sub.w #1,playnull1
  14583.  bra.s chan1still
  14584. nnul1:
  14585.  move.w #0,RIGHTCHANDATA+2
  14586.  clr.w RIGHTCHANDATA+32
  14587. chan1still:
  14588.  
  14589.  tst.b NoiseMade1pRIGHT
  14590.  bne.s chan2still
  14591.  tst.w playnull2
  14592.  beq.s nnul2
  14593.  sub.w #1,playnull2
  14594.  bra.s chan2still
  14595. nnul2:
  14596.  move.w #0,RIGHTCHANDATA+2+4
  14597.  clr.w RIGHTCHANDATA+32+4
  14598. chan2still:
  14599.  
  14600.  tst.b NoiseMade1pLEFT
  14601.  bne.s chan3still
  14602.  tst.w playnull3
  14603.  beq.s nnul3
  14604.  sub.w #1,playnull3
  14605.  bra.s chan3still
  14606. nnul3:
  14607.  move.w #0,LEFTCHANDATA+2+4
  14608.  clr.w LEFTCHANDATA+32+4
  14609.  
  14610. chan3still:
  14611.  
  14612.  
  14613.  movem.l (a7)+,d0-d7/a0-a6
  14614.  
  14615.  moveq #0,d0
  14616.  rts
  14617.  
  14618. backbeat: dc.w 0
  14619.  
  14620. playnull0: dc.w 0
  14621. playnull1: dc.w 0
  14622. playnull2: dc.w 0
  14623. playnull3: dc.w 0
  14624.  
  14625. Samp0endRIGHT: dc.l emptyend
  14626. Samp1endRIGHT: dc.l emptyend
  14627. Samp2endRIGHT: dc.l emptyend
  14628. Samp3endRIGHT: dc.l emptyend
  14629. Samp0endLEFT: dc.l emptyend
  14630. Samp1endLEFT: dc.l emptyend
  14631. Samp2endLEFT: dc.l emptyend
  14632. Samp3endLEFT: dc.l emptyend
  14633.  
  14634. Aupt0: dc.l null
  14635. Auback0: dc.l null+500
  14636. Aupt2: dc.l null3
  14637. Auback2: dc.l null3+500
  14638. Aupt3: dc.l null4
  14639. Auback3: dc.l null4+500
  14640. Aupt1: dc.l null2
  14641. Auback1: dc.l null2+500
  14642.  
  14643. NoiseMade0LEFT: dc.b 0
  14644. NoiseMade1LEFT: dc.b 0
  14645. NoiseMade2LEFT: dc.b 0
  14646. NoiseMade3LEFT: dc.b 0
  14647. NoiseMade0pLEFT: dc.b 0
  14648. NoiseMade1pLEFT: dc.b 0
  14649. NoiseMade2pLEFT: dc.b 0
  14650. NoiseMade3pLEFT: dc.b 0
  14651. NoiseMade0RIGHT: dc.b 0
  14652. NoiseMade1RIGHT: dc.b 0
  14653. NoiseMade2RIGHT: dc.b 0
  14654. NoiseMade3RIGHT: dc.b 0
  14655. NoiseMade0pRIGHT: dc.b 0
  14656. NoiseMade1pRIGHT: dc.b 0
  14657. NoiseMade2pRIGHT: dc.b 0
  14658. NoiseMade3pRIGHT: dc.b 0
  14659.  
  14660. empty: ds.l 100
  14661. emptyend:
  14662.  
  14663. **************************************
  14664. * I want a routine to calculate all the
  14665. * info needed for the sound player to
  14666. * work, given say position of noise, volume
  14667. * and sample number.
  14668.  
  14669. Samplenum: dc.w 0
  14670. Noisex: dc.w 0
  14671. Noisez: dc.w 0
  14672. Noisevol: dc.w 0
  14673. chanpick: dc.w 0
  14674. IDNUM: dc.w 0
  14675. needleft: dc.b 0
  14676. needright: dc.b 0
  14677. STEREO: dc.b $0
  14678. even
  14679. prot6: dc.w 0
  14680.  
  14681.  even
  14682. CHANNELDATA:
  14683. LEFTCHANDATA:
  14684.  dc.l $00000000
  14685.  dc.l $00000000
  14686.  dc.l $FF000000
  14687.  dc.l $FF000000
  14688. RIGHTCHANDATA:
  14689.  dc.l $00000000
  14690.  dc.l $00000000
  14691.  dc.l $FF000000
  14692.  dc.l $FF000000
  14693.  
  14694.  ds.l 8
  14695.  
  14696. RIGHTPLAYEDTAB: ds.l 20
  14697. LEFTPLAYEDTAB: ds.l 20
  14698.  
  14699. SourceEcho: dc.w 0
  14700. PLREcho: dc.w 0
  14701.  
  14702.  
  14703. LEFTOFFSET: dc.l 0
  14704. RIGHTOFFSET: dc.l 0
  14705.  
  14706. MakeSomeNoise:
  14707.  
  14708. ; move.w #$10,$dff000+intena
  14709.  
  14710. ; Plan for new sound handler:
  14711. ; It is sent a sample number,
  14712. ; a position relative to the
  14713. ; player, an id number and a volume.
  14714. ; Also notifplaying.
  14715.     
  14716. ; indirect inputs are the available
  14717. ; channel flags and whether or not
  14718. ; stereo sound is selected.
  14719.  
  14720. ; the algorithm must decide
  14721. ; whether the new sound is more
  14722. ; important than the ones already
  14723. ; playing. Thus an 'importance'
  14724. ; must be calculated, probably
  14725. ; using volume.
  14726.  
  14727. ; The output needs to be:
  14728.  
  14729. ; Write the pointers and volumes of
  14730. ; the sound channels
  14731.  
  14732.  tst.b notifplaying
  14733.  beq.s dontworry
  14734.  
  14735. ; find if we are already playing
  14736.  
  14737.  move.w IDNUM,d0
  14738.  cmp.w #$ffff,d0
  14739.  beq.s dontworry
  14740.  move.w #7,d1
  14741.  lea CHANNELDATA,a3
  14742. findsameasme
  14743.  tst.b (a3)
  14744.  bne.s notavail
  14745.  cmp.w 32(a3),d0
  14746.  beq SameAsMe
  14747. notavail:
  14748.  add.w #4,a3
  14749.  dbra d1,findsameasme
  14750.  bra dontworry
  14751. SameAsMe
  14752. ; move.w #$8010,$dff000+intena
  14753.  rts
  14754.  
  14755. noiseloud: dc.w 0
  14756.  
  14757. dontworry:
  14758.  
  14759. ; Ok its fine for us to play a sound.
  14760. ; So calculate left/right volume.
  14761.  
  14762.  move.w Noisex,d1
  14763.  muls d1,d1
  14764.  move.w Noisez,d2
  14765.  muls d2,d2
  14766.  move.w Noisevol,d3
  14767.  move.w #32767,noiseloud
  14768.  moveq #1,d0
  14769.  add.l d1,d2
  14770.  beq pastcalc
  14771.  
  14772.  move.w #31,d0
  14773. .findhigh
  14774.  btst d0,d2
  14775.  bne .foundhigh
  14776.  dbra d0,.findhigh
  14777. .foundhigh
  14778.  asr.w #1,d0
  14779.  clr.l d3
  14780.  bset d0,d3
  14781.  move.l d3,d0
  14782.  
  14783.  move.w d0,d3
  14784.  muls d3,d3    ; x*x
  14785.  sub.l d2,d3    ; x*x-a
  14786.  asr.l #1,d3    ; (x*x-a)/2
  14787.  divs d0,d3    ; (x*x-a)/2x
  14788.  sub.w d3,d0    ; second approx
  14789.  bgt .stillnot0
  14790.  move.w #1,d0
  14791. .stillnot0
  14792.  
  14793.  move.w d0,d3
  14794.  muls d3,d3
  14795.  sub.l d2,d3
  14796.  asr.l #1,d3
  14797.  divs d0,d3
  14798.  sub.w d3,d0    ; second approx
  14799.  bgt .stillnot02
  14800.  move.w #1,d0
  14801. .stillnot02
  14802.  
  14803.  move.w Noisevol,d3
  14804.  ext.l d3
  14805.  asl.l #6,d3
  14806.  cmp.l #32767,d3
  14807.  ble.s .nnnn
  14808.  move.l #32767,d3
  14809. .nnnn
  14810.  
  14811.  asr.w #2,d0
  14812.  addq #1,d0
  14813.  divs d0,d3
  14814.  
  14815. pastcalc:
  14816.  move.w d3,noiseloud
  14817.  
  14818.  cmp.w #64,d3
  14819.  ble.s notooloud
  14820.  move.w #64,d3
  14821. notooloud:
  14822.  
  14823.     ; d3 contains volume of noise.
  14824.     
  14825.  move.w d3,d4
  14826.  tst.b STEREO
  14827.  beq NOSTEREO
  14828.  
  14829.  move.w d3,d2
  14830.  muls Noisex,d2
  14831.  asl.w #2,d0
  14832.  divs d0,d2
  14833.  
  14834.  bgt.s quietleft
  14835.  add.w d2,d4
  14836.  bge.s donequiet
  14837.  move.w #0,d4
  14838.  bra.s donequiet
  14839. quietleft:
  14840.  sub.w d2,d3
  14841.  bge.s donequiet
  14842.  move.w #0,d3
  14843. donequiet:
  14844.  
  14845. ; d3=leftvol?
  14846. ; d4=rightvol?
  14847.  
  14848.  
  14849.     ; d3 contains volume of noise.
  14850.     
  14851.  move.w #$ffff,needleft
  14852.  
  14853.  move.l #0,RIGHTOFFSET
  14854.  move.l #0,LEFTOFFSET
  14855.  
  14856.  cmp.b d3,d4
  14857.  bgt.s RightLouder
  14858.  beq.s NoLouder
  14859.  
  14860.  move.l #4,LEFTOFFSET
  14861.  
  14862. ; Left is louder; is it MUCH louder?
  14863.  
  14864.  st needleft
  14865.  move.w d3,d2
  14866.  sub.w d4,d2
  14867.  cmp.w #32,d2
  14868.  slt needright
  14869.  bra aboutsame
  14870.  
  14871. RightLouder:
  14872.  move.l #4,RIGHTOFFSET
  14873.  st needright
  14874.  move.w d4,d2
  14875.  sub.w d3,d2
  14876.  cmp.w #32,d2
  14877.  slt needleft
  14878.  
  14879. aboutsame:
  14880. NoLouder:
  14881.  
  14882.  
  14883. ; Find least important sound on left
  14884.  
  14885.  move.l #0,a2
  14886.  move.l #0,d5
  14887.  move.w #32767,d2
  14888.  move.w IDNUM,d0
  14889.  lea LEFTCHANDATA,a3
  14890.  move.w #3,d1
  14891. FindLeftChannel
  14892.  tst.b (a3)
  14893.  bne.s .notactive
  14894.  cmp.w 32(a3),d0
  14895.  beq.s FOUNDLEFT
  14896.  cmp.w 2(a3),d2
  14897.  blt.s .notactive
  14898.  move.w 2(a3),d2
  14899.  move.l a3,a2
  14900.  move.w d5,d6
  14901.  
  14902. .notactive:
  14903.  add.w #4,a3
  14904.  add.w #1,d5
  14905.  dbra d1,FindLeftChannel
  14906.  move.l a2,a3
  14907.  bra.s gopastleft
  14908. FOUNDLEFT:
  14909.  move.w d5,d6
  14910. gopastleft:
  14911.  move.l a3,d5
  14912.  tst.l d5
  14913.  bne.s FOUNDALEFT
  14914. NONOISE:
  14915. ; move.w #$8010,$dff000+intena
  14916.  rts
  14917. FOUNDALEFT:
  14918.  
  14919.  cmp.w noiseloud,d2
  14920.  bge dorightchan
  14921.  
  14922. ; d6 = channel number
  14923.  cmp.w #$ffff,d0
  14924.  bne.s .noche
  14925.  move.w #$fffe,d0
  14926. .noche:
  14927.  move.w d0,32(a3)
  14928.  move.w noiseloud,2(a3)
  14929.  
  14930.  move.w Samplenum,d5
  14931.  
  14932. ; tst.b Echo
  14933. ; bne.s YESECHO
  14934. ; tst.b SourceEcho
  14935. ; beq.s NOECHO
  14936. ;
  14937. ;YESECHO:
  14938. ;
  14939. ; move.l LINKFILE,a3
  14940. ; add.l #EchoTable,a3
  14941. ; move.b (a3,d5.w),d5
  14942. ;
  14943. ;NOECHO:
  14944.  
  14945.  move.l #SampleList,a3
  14946.  move.l (a3,d5.w*8),a1
  14947.  add.l LEFTOFFSET,a1
  14948.  move.l 4(a3,d5.w*8),a2
  14949.  add.l LEFTOFFSET,a2
  14950.  
  14951.  tst.b d6
  14952.  seq NoiseMade0LEFT
  14953.  beq.s .chan0
  14954.  cmp.b #2,d6
  14955.  slt NoiseMade1LEFT
  14956.  blt .chan1
  14957.  seq NoiseMade2LEFT
  14958.  beq .chan2
  14959.  st NoiseMade3LEFT
  14960.  
  14961.  move.b d5,LEFTPLAYEDTAB+9
  14962.  move.b d3,LEFTPLAYEDTAB+1+9
  14963.  move.b d4,LEFTPLAYEDTAB+2+9
  14964.  move.b d3,vol3left
  14965.  move.l a1,pos3LEFT
  14966.  move.l a2,Samp3endLEFT
  14967.  bra dorightchan
  14968.  
  14969. .chan0: 
  14970.  move.b d5,LEFTPLAYEDTAB
  14971.  move.b d3,LEFTPLAYEDTAB+1
  14972.  move.b d4,LEFTPLAYEDTAB+2
  14973.  move.l a1,pos0LEFT
  14974.  move.l a2,Samp0endLEFT
  14975.  move.b d3,vol0left
  14976.  bra dorightchan
  14977.  
  14978. .chan1:
  14979.  move.b d5,LEFTPLAYEDTAB+3
  14980.  move.b d3,LEFTPLAYEDTAB+1+3
  14981.  move.b d4,LEFTPLAYEDTAB+2+3
  14982.  move.b d3,vol1left
  14983.  move.l a1,pos1LEFT
  14984.  move.l a2,Samp1endLEFT
  14985.  bra dorightchan
  14986.  
  14987. .chan2: 
  14988.  move.b d5,LEFTPLAYEDTAB+6
  14989.  move.b d3,LEFTPLAYEDTAB+1+6
  14990.  move.b d4,LEFTPLAYEDTAB+2+6
  14991.  move.l a1,pos2LEFT
  14992.  move.l a2,Samp2endLEFT
  14993.  move.b d3,vol2left
  14994.  
  14995. dorightchan:
  14996.  
  14997. ; Find least important sound on right
  14998.  
  14999.  move.l #0,a2
  15000.  move.l #0,d5
  15001.  move.w #10000,d2
  15002.  move.w IDNUM,d0
  15003.  lea RIGHTCHANDATA,a3
  15004.  move.w #3,d1
  15005. FindRightChannel
  15006.  tst.b (a3)
  15007.  bne.s .notactive
  15008.  cmp.w 32(a3),d0
  15009.  beq.s FOUNDRIGHT
  15010.  cmp.w 2(a3),d2
  15011.  blt.s .notactive
  15012.  move.w 2(a3),d2
  15013.  move.l a3,a2
  15014.  move.w d5,d6
  15015.  
  15016. .notactive:
  15017.  add.w #4,a3
  15018.  add.w #1,d5
  15019.  dbra d1,FindRightChannel
  15020.  move.l a2,a3
  15021.  bra.s gopastright
  15022. FOUNDRIGHT:
  15023.  move.w d5,d6
  15024. gopastright:
  15025.  move.l a3,d5
  15026.  tst.l d5
  15027.  bne.s FOUNDARIGHT
  15028. tototot:
  15029. ; move.w #$8010,$dff000+intena
  15030.  rts
  15031. FOUNDARIGHT:
  15032.  
  15033.  cmp.w noiseloud,d2
  15034.  bgt.s tototot
  15035.  
  15036. ; d6 = channel number
  15037.  cmp.w #$ffff,d0
  15038.  bne.s .noche
  15039.  move.w #$fffe,d0
  15040. .noche:
  15041.  move.w d0,32(a3)
  15042.  move.w noiseloud,2(a3)
  15043.  
  15044.  move.w Samplenum,d5
  15045.  move.l #SampleList,a3
  15046.  move.l (a3,d5.w*8),a1
  15047.  move.l 4(a3,d5.w*8),a2
  15048.  add.l RIGHTOFFSET,a1
  15049.  add.l RIGHTOFFSET,a2
  15050.  
  15051.  tst.b d6
  15052.  seq NoiseMade0RIGHT
  15053.  beq.s .chan0
  15054.  cmp.b #2,d6
  15055.  slt NoiseMade1RIGHT
  15056.  blt .chan1
  15057.  seq NoiseMade2RIGHT
  15058.  beq .chan2
  15059.  st NoiseMade3RIGHT
  15060.  
  15061.  move.b d5,RIGHTPLAYEDTAB+9
  15062.  move.b d3,RIGHTPLAYEDTAB+1+9
  15063.  move.b d4,RIGHTPLAYEDTAB+2+9
  15064.  move.b d4,vol3right
  15065.  move.l a1,pos3RIGHT
  15066.  move.l a2,Samp3endRIGHT
  15067. ; move.w #$8010,$dff000+intena
  15068.  rts
  15069.  
  15070. .chan0: 
  15071.  move.b d5,RIGHTPLAYEDTAB
  15072.  move.b d3,RIGHTPLAYEDTAB+1
  15073.  move.b d4,RIGHTPLAYEDTAB+2
  15074.  move.l a1,pos0RIGHT
  15075.  move.l a2,Samp0endRIGHT
  15076.  move.b d4,vol0right
  15077. ; move.w #$8010,$dff000+intena
  15078.  rts
  15079.  
  15080. .chan1:
  15081.  move.b d5,RIGHTPLAYEDTAB+3
  15082.  move.b d3,RIGHTPLAYEDTAB+1+3
  15083.  move.b d4,RIGHTPLAYEDTAB+2+3
  15084.  move.b d3,vol1right
  15085.  move.l a1,pos1RIGHT
  15086.  move.l a2,Samp1endRIGHT
  15087. ; move.w #$8010,$dff000+intena
  15088.  rts
  15089.  
  15090. .chan2: 
  15091.  move.b d5,RIGHTPLAYEDTAB+6
  15092.  move.b d3,RIGHTPLAYEDTAB+1+6
  15093.  move.b d4,RIGHTPLAYEDTAB+2+6
  15094.  move.l a1,pos2RIGHT
  15095.  move.l a2,Samp2endRIGHT
  15096.  move.b d3,vol2right
  15097. ; move.w #$8010,$dff000+intena
  15098.  rts
  15099.  
  15100. NOSTEREO:
  15101.  move.l #0,a2
  15102.  move.l #-1,d5
  15103.  move.w #32767,d2
  15104.  move.w IDNUM,d0
  15105.  lea CHANNELDATA,a3
  15106.  move.w #7,d1
  15107.  moveq #-1,d6
  15108.  
  15109. FindChannel
  15110.  tst.b (a3)
  15111.  bne.s .notactive
  15112.  cmp.w 32(a3),d0
  15113.  beq.s FOUNDMYCHAN
  15114.  cmp.w 2(a3),d2
  15115.  blt.s .notactive
  15116.  move.w 2(a3),d2
  15117.  move.l a3,a2
  15118.  move.w d5,d6
  15119.  add.w #1,d6
  15120.  
  15121. .notactive:
  15122.  add.w #4,a3
  15123.  add.w #1,d5
  15124.  dbra d1,FindChannel
  15125.  
  15126.  move.l a2,a3
  15127.  bra.s gopastchan
  15128.  
  15129. FOUNDMYCHAN:
  15130.  move.w 2(a3),d2
  15131.  
  15132. FOUNDCHAN:
  15133.  move.w d5,d6
  15134.  add.w #1,d6
  15135. gopastchan:
  15136.  tst.w d6
  15137.  bge.s FOUNDACHAN
  15138. tooquiet:
  15139. ; move.w #$8010,$dff000+intena
  15140.  rts
  15141. FOUNDACHAN:
  15142.  
  15143. ; d6 = channel number
  15144.  
  15145.  cmp.w noiseloud,d2
  15146.  bgt.s tooquiet
  15147.  
  15148.  cmp.w #$ffff,d0
  15149.  bne.s .noche
  15150.  move.w #$fffe,d0
  15151. .noche:
  15152.  move.w d0,32(a3)
  15153.  move.w noiseloud,2(a3)
  15154.  
  15155.  move.w Samplenum,d5
  15156.  
  15157. ; tst.b Echo
  15158. ; bne.s YESECHO2
  15159. ; tst.b SourceEcho
  15160. ; beq.s NOECHO2
  15161. ;
  15162. ;YESECHO2:
  15163. ;
  15164. ; move.l LINKFILE,a3
  15165. ; add.l #EchoTable,a3
  15166. ; move.b (a3,d5.w),d5
  15167. ;
  15168. ;NOECHO2:
  15169.  
  15170.  move.l #SampleList,a3
  15171.  move.l (a3,d5.w*8),a1
  15172.  move.l 4(a3,d5.w*8),a2
  15173.  
  15174.  tst.b d6
  15175.  beq .chan0
  15176.  cmp.b #2,d6
  15177.  blt .chan1
  15178.  beq .chan2
  15179.  cmp.b #4,d6
  15180.  blt .chan3
  15181.  beq .chan4
  15182.  cmp.b #6,d6
  15183.  blt .chan5
  15184.  beq .chan6
  15185.  st NoiseMade3RIGHT
  15186.  
  15187.  move.b d5,RIGHTPLAYEDTAB+9
  15188.  move.b d3,RIGHTPLAYEDTAB+1+9
  15189.  move.b d4,RIGHTPLAYEDTAB+2+9
  15190.  move.b d4,vol3right
  15191.  move.l a1,pos3RIGHT
  15192.  move.l a2,Samp3endRIGHT
  15193. ; move.w #$8010,$dff000+intena
  15194.  rts
  15195.  
  15196. .chan3:
  15197.  st NoiseMade3LEFT
  15198.  move.b d5,LEFTPLAYEDTAB+9
  15199.  move.b d3,LEFTPLAYEDTAB+1+9
  15200.  move.b d4,LEFTPLAYEDTAB+2+9
  15201.  move.b d3,vol3left
  15202.  move.l a1,pos3LEFT
  15203.  move.l a2,Samp3endLEFT
  15204. ; move.w #$8010,$dff000+intena
  15205.  rts
  15206.  
  15207. .chan0: 
  15208.  st NoiseMade0LEFT
  15209.  move.b d5,LEFTPLAYEDTAB
  15210.  move.b d3,LEFTPLAYEDTAB+1
  15211.  move.b d4,LEFTPLAYEDTAB+2
  15212.  move.l a1,pos0LEFT
  15213.  move.l a2,Samp0endLEFT
  15214.  move.b d3,vol0left
  15215. ; move.w #$8010,$dff000+intena
  15216.  rts
  15217.  
  15218. .chan1:
  15219.  st NoiseMade1LEFT
  15220.  move.b d5,LEFTPLAYEDTAB+3
  15221.  move.b d3,LEFTPLAYEDTAB+1+3
  15222.  move.b d4,LEFTPLAYEDTAB+2+3
  15223.  move.b d3,vol1left
  15224.  move.l a1,pos1LEFT
  15225.  move.l a2,Samp1endLEFT
  15226. ; move.w #$8010,$dff000+intena
  15227.  rts
  15228.  
  15229. .chan2: 
  15230.  st NoiseMade2LEFT
  15231.  move.b d5,LEFTPLAYEDTAB+6
  15232.  move.b d3,LEFTPLAYEDTAB+1+6
  15233.  move.b d4,LEFTPLAYEDTAB+2+6
  15234.  move.l a1,pos2LEFT
  15235.  move.l a2,Samp2endLEFT
  15236.  move.b d3,vol2left
  15237. ; move.w #$8010,$dff000+intena
  15238.  rts
  15239.  
  15240. .chan4: 
  15241.  st NoiseMade0RIGHT
  15242.  move.b d5,RIGHTPLAYEDTAB
  15243.  move.b d3,RIGHTPLAYEDTAB+1
  15244.  move.b d4,RIGHTPLAYEDTAB+2
  15245.  move.l a1,pos0RIGHT
  15246.  move.l a2,Samp0endRIGHT
  15247.  move.b d4,vol0right
  15248. ; move.w #$8010,$dff000+intena
  15249.  rts
  15250.  
  15251. .chan5:
  15252.  st NoiseMade1RIGHT
  15253.  move.b d5,RIGHTPLAYEDTAB+3
  15254.  move.b d3,RIGHTPLAYEDTAB+1+3
  15255.  move.b d4,RIGHTPLAYEDTAB+2+3
  15256.  move.b d3,vol1right
  15257.  move.l a1,pos1RIGHT
  15258.  move.l a2,Samp1endRIGHT
  15259. ; move.w #$8010,$dff000+intena
  15260.  rts
  15261.  
  15262. .chan6: 
  15263.  st NoiseMade2RIGHT
  15264.  move.b d5,RIGHTPLAYEDTAB+6
  15265.  move.b d3,RIGHTPLAYEDTAB+1+6
  15266.  move.b d4,RIGHTPLAYEDTAB+2+6
  15267.  move.l a1,pos2RIGHT
  15268.  move.l a2,Samp2endRIGHT
  15269.  move.b d3,vol2right
  15270. ; move.w #$8010,$dff000+intena
  15271.  rts
  15272.  
  15273. SampleList:
  15274.  dc.l Scream,EndScream
  15275.  dc.l Shoot,EndShoot
  15276.  dc.l Munch,EndMunch
  15277.  dc.l PooGun,EndPooGun
  15278.  dc.l Collect,EndCollect
  15279. ;5
  15280.  dc.l DoorNoise,EndDoorNoise
  15281.  dc.l 0,0
  15282.  dc.l Stomp,EndStomp
  15283.  dc.l LowScream,EndLowScream
  15284.  dc.l BaddieGun,EndBaddieGun
  15285. ;10
  15286.  dc.l SwitchNoise,EndSwitch
  15287.  dc.l Reload,EndReload
  15288.  dc.l NoAmmo,EndNoAmmo
  15289.  dc.l Splotch,EndSplotch
  15290.  dc.l SplatPop,EndSplatPop
  15291. ;15
  15292.  dc.l Boom,EndBoom
  15293.  dc.l Hiss,EndHiss
  15294.  dc.l Howl1,EndHowl1
  15295.  dc.l Howl2,EndHowl2
  15296.  dc.l Pant,EndPant
  15297. ;20
  15298.  dc.l Whoosh,EndWhoosh
  15299.  dc.l ROAR,EndROAR
  15300.  dc.l whoosh,Endwhoosh
  15301.  dc.l 0,0
  15302.  dc.l 0,0
  15303.  dc.l 0,0
  15304.  dc.l 0,0
  15305.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  15306.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  15307.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  15308.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  15309.  
  15310.  dc.l 0
  15311.  
  15312. storeval: dc.w 0
  15313.  
  15314.  include "ab3:source_4000/wallchunk.s"
  15315.  include "ab3:source_4000/newloadfromdisk.s"
  15316.  include "ab3:source_4000/screensetup.s"
  15317.  include "ab3:source_4000/multiCONTROLLOOP.s"
  15318.  
  15319.  
  15320.  
  15321.  
  15322. saveinters:  
  15323.  dc.w 0
  15324.  
  15325. z: dc.w 10
  15326.  
  15327. notifplaying:
  15328.  dc.w 0
  15329.  
  15330. audpos1: dc.w 0
  15331. audpos1b: dc.w 0
  15332. audpos2: dc.w 0
  15333. audpos2b: dc.w 0
  15334. audpos3: dc.w 0
  15335. audpos3b: dc.w 0
  15336. audpos4: dc.w 0
  15337. audpos4b: dc.w 0
  15338.  
  15339. vol0left: dc.w 0
  15340. vol0right: dc.w 0
  15341. vol1left: dc.w 0
  15342. vol1right: dc.w 0
  15343. vol2left: dc.w 0
  15344. vol2right: dc.w 0
  15345. vol3left: dc.w 0
  15346. vol3right: dc.w 0
  15347.  
  15348. pos: dc.l 0
  15349.  
  15350. pos0LEFT: dc.l empty
  15351. pos1LEFT: dc.l empty
  15352. pos2LEFT: dc.l empty
  15353. pos3LEFT: dc.l empty
  15354. pos0RIGHT: dc.l empty
  15355. pos1RIGHT: dc.l empty
  15356. pos2RIGHT: dc.l empty
  15357. pos3RIGHT: dc.l empty
  15358.  
  15359. numtodo dc.w 0
  15360.  
  15361. npt: dc.w 0
  15362.  
  15363. pretab:
  15364. val SET 0
  15365.  REPT 128
  15366.  dc.b val
  15367. val SET val+1
  15368.  ENDR
  15369. val SET -128
  15370.  REPT 128
  15371.  dc.b val
  15372. val SET val+1
  15373.  ENDR 
  15374.  
  15375. tab:
  15376.  ifeq CHEESEY
  15377.  ds.b 256*65
  15378.  endc
  15379.  
  15380. test: dc.l 0
  15381.  ds.l 30
  15382.  
  15383.  
  15384.  even
  15385. ConstCols:
  15386. ; incbin "ConstCols"
  15387.  even
  15388. Smoothscalecols:
  15389. ; incbin "smoothbumppalscaled"
  15390.  even
  15391. SmoothTile:
  15392. ; incbin "smoothbumptile"
  15393.  even
  15394. Bumpscalecols:
  15395. ; incbin "Bumppalscaled"
  15396.  even
  15397. Bumptile:
  15398. ; incbin "bumptile"
  15399.  even
  15400. scalecols: ;incbin "bytepixpalscaled"
  15401.  even
  15402. ;floorscalecols:
  15403. ; incbin "floor256pal"
  15404. ; ds.w 256*4
  15405.  
  15406.  even
  15407. PaletteAddr: dc.l 0
  15408. ChunkAddr: dc.l 0
  15409. ;walltiles:
  15410. ; dc.l GreenMechanicWALL
  15411. ; dc.l BlueGreyMetalWALL
  15412. ; dc.l TechnoDetailWALL
  15413. ; dc.l BlueStoneWALL
  15414. ; dc.l RedAlertWALL
  15415. ; dc.l RockWALL
  15416. ;
  15417. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  15418. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  15419. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  15420. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  15421. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  15422. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  15423.  
  15424. floortile:
  15425.  dc.l 0
  15426. ; incbin "floortile" 
  15427.  even
  15428. wallrouts:
  15429. ; incbin "2x2WallDraw" 
  15430.  CNOP 0,64
  15431.  
  15432.  ifeq CHEESEY 
  15433. BackPicture:
  15434.  dc.l 0
  15435. ; incbin "rawback"
  15436. EndBackPicture:
  15437.  endc
  15438.  
  15439. drawpt: dc.l 0
  15440. olddrawpt: dc.l 0
  15441. frompt: dc.l 0 
  15442.  
  15443. SineTable:
  15444.  incbin "bigsine"
  15445.  
  15446. angspd: dc.w 0
  15447. flooryoff: dc.w 0
  15448. xoff: dc.l 0
  15449. yoff: dc.l 0
  15450. yvel: dc.l 0
  15451. zoff: dc.l 0
  15452. tyoff: dc.l 0
  15453. xspdval: dc.l 0
  15454. zspdval: dc.l 0
  15455. Zone: dc.w 0
  15456.  
  15457. PLR1: dc.b $ff
  15458.  even
  15459. PLR1_energy: dc.w 191
  15460. PLR1_GunSelected: dc.w 0
  15461. PLR1_cosval: dc.w 0
  15462. PLR1_sinval: dc.w 0
  15463. PLR1_angpos: dc.w 0
  15464. PLR1_angspd: dc.w 0
  15465. PLR1_xoff: dc.l 0
  15466. PLR1_yoff: dc.l 0
  15467. PLR1_yvel: dc.l 0
  15468. PLR1_zoff: dc.l 0
  15469. PLR1_tyoff: dc.l 0
  15470. PLR1_xspdval: dc.l 0
  15471. PLR1_zspdval: dc.l 0
  15472. PLR1_Zone: dc.w 0
  15473. PLR1_Roompt: dc.l 0
  15474. PLR1_FloorSpd: dc.l 0
  15475. PLR2_FloorSpd: dc.l 0
  15476. PLR1_OldRoompt: dc.l 0
  15477. PLR1_PointsToRotatePtr: dc.l 0
  15478. PLR1_ListOfGraphRooms: dc.l 0
  15479. PLR1_oldxoff: dc.l 0
  15480. PLR1_oldzoff: dc.l 0
  15481. PLR1_StoodInTop: dc.b 0
  15482.  even
  15483. PLR1_height: dc.l 0
  15484. PLR1_RoomBright: dc.w 0
  15485.  
  15486. PLR3: dc.b $ff
  15487.  even
  15488. PLR3_energy: dc.w 191
  15489. PLR3_GunSelected: dc.w 0
  15490. PLR3_cosval: dc.w 0
  15491. PLR3_sinval: dc.w 0
  15492. PLR3_angpos: dc.w 0
  15493. PLR3_angspd: dc.w 0
  15494. PLR3_xoff: dc.l 0
  15495. PLR3_yoff: dc.l 0
  15496. PLR3_yvel: dc.l 0
  15497. PLR3_zoff: dc.l 0
  15498. PLR3_tyoff: dc.l 0
  15499. PLR3_xspdval: dc.l 0
  15500. PLR3_zspdval: dc.l 0
  15501. PLR3_Zone: dc.w 0
  15502. PLR3_Roompt: dc.l 0
  15503. PLR3_FloorSpd: dc.l 0
  15504. PLR3_OldRoompt: dc.l 0
  15505. PLR3_PointsToRotatePtr: dc.l 0
  15506. PLR3_ListOfGraphRooms: dc.l 0
  15507. PLR3_oldxoff: dc.l 0
  15508. PLR3_oldzoff: dc.l 0
  15509. PLR3_StoodInTop: dc.b 0
  15510.  even
  15511. PLR3_height: dc.l 0
  15512. PLR3_RoomBright: dc.w 0
  15513.  
  15514.  
  15515. DOUBLEWIDTH: dc.b $0,0
  15516. DOUBLEHEIGHT: dc.b 0,0
  15517. PLR1_TELEPORTED: dc.w 0
  15518. PLR2_TELEPORTED: dc.w 0
  15519. PLR3_TELEPORTED: dc.w 0
  15520.  
  15521.  ds.w 4
  15522.  
  15523. OLDX1: dc.l 0
  15524. OLDX2: dc.l 0
  15525. OLDX3: dc.l 0
  15526. OLDZ1: dc.l 0
  15527. OLDZ2: dc.l 0
  15528. OLDZ3: dc.l 0
  15529.  
  15530. XDIFF1: dc.l 0
  15531. ZDIFF1: dc.l 0
  15532. XDIFF2: dc.l 0
  15533. ZDIFF2: dc.l 0
  15534. XDIFF3: dc.l 0
  15535. ZDIFF3: dc.l 0
  15536.  
  15537. PLR1s_cosval: dc.w 0
  15538. PLR1s_sinval: dc.w 0
  15539. PLR1s_angpos: dc.w 0
  15540. PLR1s_angspd: dc.w 0
  15541. PLR1s_xoff: dc.l 0
  15542. PLR1s_yoff: dc.l 0
  15543. PLR1s_yvel: dc.l 0
  15544. PLR1s_zoff: dc.l 0
  15545. PLR1s_tyoff: dc.l 0
  15546. PLR1s_xspdval: dc.l 0
  15547. PLR1s_zspdval: dc.l 0
  15548. PLR1s_Zone: dc.w 0
  15549. PLR1s_Roompt: dc.l 0
  15550. PLR1s_OldRoompt: dc.l 0
  15551. PLR1s_PointsToRotatePtr: dc.l 0
  15552. PLR1s_ListOfGraphRooms: dc.l 0
  15553. PLR1s_oldxoff: dc.l 0
  15554. PLR1s_oldzoff: dc.l 0
  15555. PLR1s_height: dc.l 0
  15556. PLR1s_targheight: dc.l 0
  15557.  
  15558. PLR1_Echo: dc.w 0
  15559.  
  15560. p1_xoff: dc.l 0
  15561. p1_zoff: dc.l 0
  15562. p1_yoff: dc.l 0
  15563. p1_height: dc.l 0
  15564. p1_angpos: dc.w 0
  15565. p1_bobble: dc.w 0
  15566. p1_clicked: dc.b 0
  15567. p1_spctap: dc.b 0
  15568. p1_ducked: dc.b 0
  15569. p1_gunselected: dc.b 0
  15570. p1_fire: dc.b 0
  15571.  even
  15572. p1_holddown: dc.w 0
  15573.  
  15574. PLR3s_cosval: dc.w 0
  15575. PLR3s_sinval: dc.w 0
  15576. PLR3s_angpos: dc.w 0
  15577. PLR3s_angspd: dc.w 0
  15578. PLR3s_xoff: dc.l 0
  15579. PLR3s_yoff: dc.l 0
  15580. PLR3s_yvel: dc.l 0
  15581. PLR3s_zoff: dc.l 0
  15582. PLR3s_tyoff: dc.l 0
  15583. PLR3s_xspdval: dc.l 0
  15584. PLR3s_zspdval: dc.l 0
  15585. PLR3s_Zone: dc.w 0
  15586. PLR3s_Roompt: dc.l 0
  15587. PLR3s_OldRoompt: dc.l 0
  15588. PLR3s_PointsToRotatePtr: dc.l 0
  15589. PLR3s_ListOfGraphRooms: dc.l 0
  15590. PLR3s_oldxoff: dc.l 0
  15591. PLR3s_oldzoff: dc.l 0
  15592. PLR3s_height: dc.l 0
  15593. PLR3s_targheight: dc.l 0
  15594.  
  15595. PLR3_Echo: dc.w 0
  15596.  
  15597. p3_xoff: dc.l 0
  15598. p3_zoff: dc.l 0
  15599. p3_yoff: dc.l 0
  15600. p3_height: dc.l 0
  15601. p3_angpos: dc.w 0
  15602. p3_bobble: dc.w 0
  15603. p3_clicked: dc.b 0
  15604. p3_spctap: dc.b 0
  15605. p3_ducked: dc.b 0
  15606. p3_gunselected: dc.b 0
  15607. p3_fire: dc.b 0
  15608.  even
  15609. p3_holddown: dc.w 0
  15610.  
  15611.  
  15612.  ds.w 4
  15613.  
  15614. PLR2: dc.b $ff
  15615.  even
  15616. PLR2_GunSelected: dc.w 0
  15617. PLR2_energy: dc.w 191
  15618. PLR2_cosval: dc.w 0
  15619. PLR2_sinval: dc.w 0
  15620. PLR2_angpos: dc.w 0
  15621. PLR2_angspd: dc.w 0
  15622. PLR2_xoff: dc.l 0
  15623. PLR2_yoff: dc.l 0
  15624. PLR2_yvel: dc.l 0
  15625. PLR2_zoff: dc.l 0
  15626. PLR2_tyoff: dc.l 0
  15627. PLR2_xspdval: dc.l 0
  15628. PLR2_zspdval: dc.l 0
  15629. PLR2_Zone: dc.w 0
  15630. PLR2_Roompt: dc.l 0
  15631. PLR2_OldRoompt: dc.l 0
  15632. PLR2_PointsToRotatePtr: dc.l 0
  15633. PLR2_ListOfGraphRooms: dc.l 0
  15634. PLR2_oldxoff: dc.l 0
  15635. PLR2_oldzoff: dc.l 0
  15636. PLR2_StoodInTop: dc.b 0
  15637.  even
  15638. PLR2_height: dc.l 0
  15639. PLR2_Echo: dc.w 0
  15640. Echo: dc.w 0
  15641.  
  15642.  ds.w 4
  15643.  
  15644. PLR2s_cosval: dc.w 0
  15645. PLR2s_sinval: dc.w 0
  15646. PLR2s_angpos: dc.w 0
  15647. PLR2s_angspd: dc.w 0
  15648. PLR2s_xoff: dc.l 0
  15649. PLR2s_yoff: dc.l 0
  15650. PLR2s_yvel: dc.l 0
  15651. PLR2s_zoff: dc.l 0
  15652. PLR2s_tyoff: dc.l 0
  15653. PLR2s_xspdval: dc.l 0
  15654. PLR2s_zspdval: dc.l 0
  15655. PLR2s_Zone: dc.w 0
  15656. PLR2s_Roompt: dc.l 0
  15657. PLR2s_OldRoompt: dc.l 0
  15658. PLR2s_PointsToRotatePtr: dc.l 0
  15659. PLR2s_ListOfGraphRooms: dc.l 0
  15660. PLR2s_oldxoff: dc.l 0
  15661. PLR2s_oldzoff: dc.l 0
  15662. PLR2s_height: dc.l 0
  15663. PLR2s_targheight: dc.l 0
  15664.  
  15665.  ds.w 4
  15666.  
  15667. p2_xoff: dc.l 0
  15668. p2_zoff: dc.l 0
  15669. p2_yoff: dc.l 0
  15670. p2_height: dc.l 0
  15671. p2_angpos: dc.w 0
  15672. p2_bobble: dc.w 0
  15673. p2_clicked: dc.b 0
  15674. p2_spctap: dc.b 0
  15675. p2_ducked: dc.b 0
  15676. p2_gunselected: dc.b 0
  15677. p2_fire: dc.b 0
  15678.  even
  15679. p2_holddown: dc.w 0
  15680.  
  15681. liftanimtab:
  15682.  
  15683. endliftanimtab:
  15684.  
  15685. glassball:
  15686. ; incbin "glassball.inc"
  15687.  
  15688. endglass
  15689. glassballpt: dc.l glassball
  15690.  
  15691. rndtab: ; incbin "randfile"
  15692. endrnd: 
  15693.  
  15694. brightanimtab:
  15695. ; dcb.w 200,20
  15696. ; dc.w 5
  15697. ; dc.w 10,20
  15698. ; dc.w 5
  15699. ; dcb.w 30,20
  15700. ; dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  15701. ; dcb.w 40,0
  15702. ; dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  15703. ; dcb.w 300,0
  15704. ; dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  15705. ; dc.w -1
  15706.  
  15707. Roompt: dc.l 0
  15708. OldRoompt: dc.l 0
  15709.  
  15710. *****************************************************************
  15711.  *
  15712.  include "AB3:source_4000/multiLevelData2"
  15713.  *
  15714. *****************************************************************
  15715.  
  15716.  
  15717. wallpt: dc.l 0
  15718. floorpt: dc.l 0
  15719.  
  15720. Rotated:
  15721.  ds.l 2*800 
  15722. ObjRotated:
  15723.  ds.l 2*500
  15724.  
  15725. OnScreen:
  15726.  ds.l 2*800 
  15727.  
  15728. startwait: dc.w 0
  15729. endwait: dc.w 0
  15730.  
  15731. ;Faces:
  15732. ; incbin "faces2raw"
  15733.  
  15734. LINKS: dc.l 0
  15735. FLYLINKS: dc.l 0
  15736. *************************************************************
  15737.  
  15738. consttab:
  15739.  ds.b 65536
  15740.  
  15741. ; incbin "constantfile"
  15742.  
  15743. *******************************************************************
  15744.  
  15745.  
  15746.  
  15747. *********************************
  15748.  
  15749. ; include "ab3:source_4000/loadmod.a"
  15750. ; include "ab3:source_4000/proplayer.a"
  15751.  
  15752.  
  15753. darkentab: 
  15754. ;val SET 0
  15755. ; REPT 256
  15756. ; dc.b val
  15757. ;val SET val+1
  15758. ; ENDR
  15759. ; incbin "darkenfile"
  15760.  
  15761.     dc.w 0
  15762. MIDDLEX: dc.w 0
  15763. RIGHTX: dc.w 192
  15764. FULLSCR: dc.w 0
  15765.  
  15766. ;SHADINGTABLE: incbin "SHADEFILE" 
  15767.  
  15768. ******************************************
  15769. * Link file !*****************************
  15770. ******************************************
  15771.  
  15772. LINKSPACE:
  15773. ; ds.l 22500
  15774. ; incbin "ab3:includes/test.lnk"
  15775.  
  15776. LINKname:
  15777.  dc.b "TKG1:includes/test.lnk",0
  15778.  even
  15779.  
  15780. LINKFILE:
  15781.  dc.l LINKSPACE
  15782.  
  15783. ******************************************
  15784.  
  15785.  
  15786. ;brightentab:
  15787. ; incbin "brightenfile"
  15788. WorkSpace:
  15789.  ds.l 8192 
  15790. waterfile:
  15791.  incbin "waterfile"
  15792.  
  15793.  SECTION ffff,CODE_C
  15794.  
  15795. nullspr: dc.l 0
  15796.  
  15797.  cnop 0,8
  15798. ;borders:
  15799. ; incbin "newleftbord"
  15800. ; incbin "newrightbord"
  15801.  
  15802. health: 
  15803. ;incbin "healthstrip"
  15804. Ammunition: 
  15805. ;incbin "ammostrip"
  15806. healthpal: 
  15807. ;incbin "healthpal"
  15808. PanelKeys: 
  15809. ;incbin "greenkey"
  15810. ; incbin "redkey"
  15811. ; incbin "yellowkey"
  15812. ; incbin "bluekey"
  15813.  
  15814. null: ds.w 500
  15815. null2: ds.w 500
  15816. null3: ds.w 500
  15817. null4: ds.w 500
  15818.  
  15819.  
  15820. Blurbfield:
  15821.  
  15822.  dc.w bpl1ptl
  15823. bl1l: dc.w 0
  15824.  dc.w bpl1pth
  15825. bl1h: dc.w 0
  15826.  
  15827.  dc.w diwstart,$2c81
  15828.  dc.w diwstop,$1cc1
  15829.  dc.w ddfstart,$38
  15830.  dc.w ddfstop,$b8
  15831.  dc.w bplcon0,$9201
  15832.  dc.w bplcon1,0
  15833.  dc.w $106,$c40
  15834. blcols:
  15835.  dc.w col0,0
  15836.  dc.w col1,$fff
  15837.  
  15838.  dc.w $108,0
  15839.  dc.w $10a,0
  15840.  
  15841.  dc.w $ffff,$fffe
  15842.  dc.w $ffff,$fffe
  15843.  
  15844. nullline:
  15845.  ds.b 80    
  15846.  
  15847.  include "ab3:source_4000/titlecop.s"
  15848.  
  15849. bigfield:    
  15850.                 ; Start of our copper list.
  15851.  dc.w dmacon,$8020
  15852.  dc.w intreq,$8011
  15853.  dc.w $1fc,$f
  15854.  dc.w diwstart
  15855. winstart: dc.w $2c81
  15856.  dc.w diwstop
  15857. winstop: dc.w $2cc1
  15858.  dc.w ddfstart
  15859. fetchstart: dc.w $38
  15860.  dc.w ddfstop
  15861. fetchstop: dc.w $b8
  15862.  
  15863. bordercols:
  15864.  incbin "borderpal"
  15865.  
  15866.  dc.w spr0ptl
  15867. s0l:
  15868.  dc.w 0
  15869.  dc.w spr0pth
  15870. s0h:
  15871.  dc.w 0
  15872.  dc.w spr1ptl
  15873. s1l:
  15874.  dc.w 0
  15875.  dc.w spr1pth
  15876. s1h:
  15877.  dc.w 0
  15878.  dc.w spr2ptl
  15879. s2l:
  15880.  dc.w 0
  15881.  dc.w spr2pth
  15882. s2h:
  15883.  dc.w 0
  15884.  dc.w spr3ptl
  15885. s3l:
  15886.  dc.w 0
  15887.  dc.w spr3pth
  15888. s3h:
  15889.  dc.w 0
  15890.  dc.w spr4ptl
  15891. s4l:
  15892.  dc.w 0
  15893.  dc.w spr4pth
  15894. s4h:
  15895.  dc.w 0
  15896.  dc.w spr5ptl
  15897. s5l:
  15898.  dc.w 0
  15899.  dc.w spr5pth
  15900. s5h:
  15901.  dc.w 0
  15902.  dc.w spr6ptl
  15903. s6l:
  15904.  dc.w 0
  15905.  dc.w spr6pth
  15906. s6h:
  15907.  dc.w 0
  15908.  dc.w spr7ptl
  15909. s7l:
  15910.  dc.w 0
  15911.  dc.w spr7pth
  15912. s7h:
  15913.  dc.w 0
  15914.  
  15915. ; dc.w $106,$c42
  15916. ; incbin "borderpal"
  15917.  
  15918.  dc.w $106,$c42
  15919.  
  15920.  dc.w bplcon0,$0211
  15921.  dc.w bplcon1
  15922. smoff:
  15923.  dc.w $0
  15924.  
  15925.  dc.w $108
  15926. modulo: dc.w 0
  15927.  dc.w $10a,0
  15928.  
  15929.  dc.w $1001,$ff00
  15930.  dc.w intreq,$11
  15931.  
  15932. PALETTESPACE:
  15933.  dcb.l 528,$1fe0000
  15934.  
  15935.  dc.w $2001,$ff00
  15936.  
  15937.  dc.w bpl1pth
  15938. pl1h
  15939.  dc.w 0
  15940.  
  15941.  dc.w bpl1ptl
  15942. pl1l
  15943.  dc.w 0
  15944.  
  15945.  dc.w bpl2pth
  15946. pl2h
  15947.  dc.w 0
  15948.  
  15949.  dc.w bpl2ptl
  15950. pl2l
  15951.  dc.w 0
  15952.  
  15953.  dc.w bpl3pth
  15954. pl3h
  15955.  dc.w 0
  15956.  
  15957.  dc.w bpl3ptl
  15958. pl3l
  15959.  dc.w 0
  15960.  
  15961.  dc.w bpl4pth
  15962. pl4h
  15963.  dc.w 0
  15964.  
  15965.  dc.w bpl4ptl
  15966. pl4l
  15967.  dc.w 0
  15968.  
  15969.  dc.w bpl5pth
  15970. pl5h
  15971.  dc.w 0
  15972.  
  15973.  dc.w bpl5ptl
  15974. pl5l
  15975.  dc.w 0
  15976.  
  15977.  dc.w bpl6pth
  15978. pl6h
  15979.  dc.w 0
  15980.  
  15981.  dc.w bpl6ptl
  15982. pl6l
  15983.  dc.w 0
  15984.  
  15985.  dc.w bpl7pth
  15986. pl7h
  15987.  dc.w 0
  15988.  
  15989.  dc.w bpl7ptl
  15990. pl7l
  15991.  dc.w 0
  15992.  
  15993.  dc.w bpl8pth
  15994. pl8h
  15995.  dc.w 0
  15996.  
  15997.  dc.w bpl8ptl
  15998. pl8l
  15999.  dc.w 0
  16000.  
  16001.  
  16002. val SET $2c
  16003. SCRMODULOS:
  16004.  REPT 232
  16005.  dc.b val,1,$ff,$fe
  16006.  dc.w $108,0
  16007.  dc.w $10a,0
  16008.  dc.b val,$df,$ff,$fe
  16009. val SET (val+1)&$ff
  16010.  ENDR
  16011.  
  16012.  dc.w $108,0,$10a,0
  16013.  dc.w $2401,$ff00
  16014.  dc.w ddfstop,$c8
  16015.  dc.w bplcon0,$9201
  16016.  dc.w bpl1ptl
  16017. scroll:
  16018.  dc.w 0
  16019.  dc.w bpl1pth
  16020. scrolh:
  16021.  dc.w 0
  16022.  
  16023.  dc.w $106,$c40
  16024.  dc.w $180,0
  16025.  dc.w $182,$f0
  16026. ; dc.w $108,40
  16027. ; dc.w $10a,40
  16028.  
  16029. ; dc.w $80
  16030. ;JUMPBACKH:
  16031. ; dc.w 0
  16032. ; dc.w $82
  16033. ;JUMPBACKL:
  16034. ; dc.w 0
  16035.  
  16036. ; dc.w $8a,0
  16037.  
  16038.  dc.w $ffff,$fffe
  16039.  dc.w $ffff,$fffe
  16040.  
  16041. PALETTEBIT:
  16042.  incbin "256palette"
  16043.  dc.w $ffff,$fffe
  16044.  
  16045. yposcop:
  16046. ; dc.w $2a11,$fffe
  16047. ; dc.w $8a,0
  16048.  
  16049. ; ds.l 104*12
  16050.  
  16051. ;colbars:
  16052. ;val SET $2a
  16053. ; dcb.l 104*80,$1fe0000
  16054. ; dc.w $106,$c42
  16055. ; 
  16056. ; dc.w $80
  16057. ;pch1:
  16058. ; dc.w 0
  16059. ; dc.w $82
  16060. ;pcl1:
  16061. ; dc.w 0 
  16062. ; 
  16063. ; dc.w $88,0
  16064. ; 
  16065. ; dc.w $ffff,$fffe       ; End copper list.
  16066.  
  16067. ; ds.l 104*12
  16068.  
  16069.  
  16070. ;colbars2:
  16071. ;val SET $2a
  16072. ; dcb.l 104*80,$1fe0000
  16073. ; 
  16074. ; dc.w $106,$c42
  16075. ; 
  16076. ; dc.w $80
  16077. ;pch2:
  16078. ; dc.w 0
  16079. ; dc.w $82
  16080. ;pcl2:
  16081. ; dc.w 0
  16082. ; 
  16083. ; dc.w $88,0
  16084. ; 
  16085. ; dc.w $ffff,$fffe       ; End copper list.
  16086.  
  16087. ; ds.l 104*10
  16088.  
  16089. NullCopper:
  16090.  dc.w $ffff,$fffe
  16091.  
  16092. hitcol: dc.l 0
  16093.  
  16094. old: dc.l 0
  16095.  
  16096.  CNOP 0,64
  16097. SCROLLSCRN: ds.l 20*16
  16098.  
  16099. SCROLLOFFSET: dc.w 0
  16100. SCROLLTIMER: dc.w 100
  16101. SCROLLDIRECTION: dc.w 1
  16102. SCROLLXPOS: dc.w 0
  16103. SCROLLPOINTER: dc.l testscroll
  16104. ENDSCROLL: dc.l endtestscroll
  16105.  
  16106. testscroll:
  16107. ;      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  16108. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  16109. ; dc.b "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ                            "
  16110. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  16111.  
  16112. BLANKSCROLL:
  16113.  dc.b "                                                                                "
  16114. endtestscroll: 
  16115.  
  16116. prot5: dc.w 0
  16117. PanelCop:
  16118.  
  16119.  dc.w $80
  16120. och:
  16121.  dc.w 0
  16122.  dc.w $82
  16123. ocl:
  16124.  dc.w 0
  16125.  
  16126. statskip:
  16127.  dc.w $1fe,0
  16128.  dc.w $1fe,0
  16129.  
  16130.  dc.w $10c,0
  16131.  dc.w bplcon0,$1201
  16132.  dc.w bpl1ptl
  16133. n1l:
  16134.  dc.w 0
  16135.  dc.w bpl1pth
  16136. n1h:
  16137.  dc.w 0
  16138.  dc.w $108,-24
  16139. ; incbin "Panelpal"
  16140.  
  16141.  dc.w bpl2pth
  16142. p2h
  16143.  dc.w 0
  16144.  
  16145.  dc.w bpl2ptl
  16146. p2l
  16147.  dc.w 0
  16148.  
  16149.  dc.w bpl3pth
  16150. p3h
  16151.  dc.w 0
  16152.  
  16153.  dc.w bpl3ptl
  16154. p3l
  16155.  dc.w 0
  16156.  
  16157.  dc.w bpl4pth
  16158. p4h
  16159.  dc.w 0
  16160.  dc.w bpl4ptl
  16161. p4l
  16162.  dc.w 0
  16163.  dc.w bpl5pth
  16164. p5h
  16165.  dc.w 0
  16166.  dc.w bpl5ptl
  16167. p5l
  16168.  dc.w 0
  16169.  dc.w bpl6pth
  16170. p6h
  16171.  dc.w 0
  16172.  dc.w bpl6ptl
  16173. p6l
  16174.  dc.w 0
  16175.  dc.w bpl7pth
  16176. p7h
  16177.  dc.w 0
  16178.  dc.w bpl7ptl
  16179. p7l
  16180.  dc.w 0
  16181.  dc.w bpl8pth
  16182. p8h
  16183.  dc.w 0
  16184.  dc.w bpl8ptl
  16185. p8l
  16186.  dc.w 0
  16187.  
  16188.  
  16189.  dc.w ddfstart,$38
  16190.  dc.w ddfstop,$b8
  16191.  dc.w diwstart,$2c81
  16192.  dc.w diwstop,$2cc1
  16193.  
  16194.  dc.w bplcon0
  16195. Panelcon: dc.w $0211
  16196.  dc.w bpl1pth
  16197. p1h
  16198.  dc.w 0
  16199.  
  16200.  dc.w bpl1ptl
  16201. p1l
  16202.  dc.w 0
  16203.  
  16204.  
  16205.  dc.w $108,40*7
  16206.  dc.w $10a,40*7
  16207.  
  16208.  dc.w $ffff,$fffe
  16209.  
  16210.  dc.w $180,$fff
  16211.  
  16212.  
  16213.  dc.w $f801,$ff00
  16214.  dc.w col1,$50
  16215.  dc.w $f901,$ff00
  16216.  dc.w col1,$90
  16217.  dc.w $fa01,$ff00
  16218.  dc.w col1,$f0
  16219.  dc.w $fb01,$ff00
  16220.  dc.w col1,$f0
  16221.  dc.w $fc01,$ff00
  16222.  dc.w col1,$90
  16223.  dc.w $fd01,$ff00
  16224.  dc.w col1,$50
  16225.  
  16226.  dc.w $fe01,$ff00
  16227.  dc.w col1,$fff
  16228.  
  16229.  dc.w $ffdf,$fffe
  16230.  dc.w $a01,$ff00
  16231.  dc.w bplcon0,$201
  16232.  
  16233. ; incbin "faces2cols"
  16234.  dc.w bpl1pth
  16235. f1h
  16236.  dc.w 0
  16237.  
  16238.  dc.w bpl1ptl
  16239. f1l
  16240.  dc.w 0
  16241.  
  16242.  dc.w bpl2pth
  16243. f2h
  16244.  dc.w 0
  16245.  
  16246.  dc.w bpl2ptl
  16247. f2l
  16248.  dc.w 0
  16249.  
  16250.  dc.w bpl3pth
  16251. f3h
  16252.  dc.w 0
  16253.  
  16254.  dc.w bpl3ptl
  16255. f3l
  16256.  dc.w 0
  16257.  
  16258.  dc.w bpl4pth
  16259. f4h
  16260.  dc.w 0
  16261.  dc.w bpl4ptl
  16262. f4l
  16263.  dc.w 0
  16264.  
  16265.  dc.w bpl5pth
  16266. f5h
  16267.  dc.w 0
  16268.  dc.w bpl5ptl
  16269. f5l
  16270.  dc.w 0
  16271.  
  16272.  dc.w $0c01,$ff00
  16273.  dc.w bplcon0,$5201
  16274.   
  16275.  dc.w $ffff,$fffe
  16276.  
  16277.  cnop 0,64
  16278. FacePlace:
  16279. ; ds.l 6*32*5
  16280.  
  16281. TEXTSCRN: dc.l 0
  16282.  
  16283. TEXTCOP:
  16284.  dc.w intreq,$8030
  16285.  
  16286.  dc.w spr0ptl
  16287. txs0l:
  16288.  dc.w 0
  16289.  dc.w spr0pth
  16290. txs0h:
  16291.  dc.w 0
  16292.  dc.w spr1ptl
  16293. txs1l:
  16294.  dc.w 0
  16295.  dc.w spr1pth
  16296. txs1h:
  16297.  dc.w 0
  16298.  dc.w spr2ptl
  16299. txs2l:
  16300.  dc.w 0
  16301.  dc.w spr2pth
  16302. txs2h:
  16303.  dc.w 0
  16304.  dc.w spr3ptl
  16305. txs3l:
  16306.  dc.w 0
  16307.  dc.w spr3pth
  16308. txs3h:
  16309.  dc.w 0
  16310.  dc.w spr4ptl
  16311. txs4l:
  16312.  dc.w 0
  16313.  dc.w spr4pth
  16314. txs4h:
  16315.  dc.w 0
  16316.  dc.w spr5ptl
  16317. txs5l:
  16318.  dc.w 0
  16319.  dc.w spr5pth
  16320. txs5h:
  16321.  dc.w 0
  16322.  dc.w spr6ptl
  16323. txs6l:
  16324.  dc.w 0
  16325.  dc.w spr6pth
  16326. txs6h:
  16327.  dc.w 0
  16328.  dc.w spr7ptl
  16329. txs7l:
  16330.  dc.w 0
  16331.  dc.w spr7pth
  16332. txs7h:
  16333.  dc.w 0
  16334.  
  16335.  
  16336.  dc.w $10c,$0088
  16337.  
  16338.  dc.w $1fc,$f
  16339.  dc.w diwstart,$2c81    ; Top left corner of screen.
  16340.  dc.w diwstop
  16341. BOTOFTXT:
  16342.  dc.w $2cc1     ; Bottom right corner of screen.
  16343.  dc.w ddfstart,$38      ; Data fetch start.
  16344.  dc.w ddfstop,$c8       ; Data fetch stop.
  16345.  
  16346.  dc.w bplcon0
  16347. TSCP:
  16348.  dc.w $a201
  16349.  
  16350.  dc.w $106,$c40
  16351.  
  16352.  dc.w $2a01,$ff00
  16353.  
  16354.  dc.w col0
  16355. backc: dc.w 0
  16356.  dc.w col1
  16357. TOPLET:
  16358. TXTCOLL:
  16359.  dc.w 0
  16360.   dc.w col2
  16361. BOTLET:
  16362. TOPCOLL:
  16363.  dc.w 0
  16364.  dc.w col3
  16365. ALLTEXT:
  16366. MIXCOLL:
  16367.  dc.w $fff
  16368.  dc.w $106,$e40
  16369.  dc.w col3
  16370. ALLTEXTLOW:
  16371.  dc.w $0
  16372.  
  16373.  
  16374.  dc.w bpl1pth
  16375. TSPTh:
  16376.  dc.w 0
  16377.  dc.w bpl1ptl
  16378. TSPTl:
  16379.  dc.w 0
  16380.  
  16381.  dc.w bpl2pth
  16382. TSPTh2:
  16383.  dc.w 0
  16384.  dc.w bpl2ptl
  16385. TSPTl2:
  16386.  dc.w 0
  16387.  
  16388.  
  16389.  dc.w $108,0
  16390.  dc.w $10a,0
  16391.  
  16392.  dc.w $ffff,$fffe
  16393.  
  16394. ********************************************
  16395. * Stuff you don't have to worry about yet. *
  16396. ********************************************
  16397.  
  16398. closeeverything:
  16399.  
  16400. ; jsr mt_end
  16401.  
  16402.  move.l #nullcop,d0
  16403. ; move.l old,d0
  16404.  
  16405.  
  16406. ;charlie  
  16407.  move.l d0,$dff080     ; Restore old copper list.
  16408.  move.w d0,ocl
  16409.  swap d0
  16410.  move.w d0,och
  16411.  
  16412. ; move.l doslib,a6
  16413. ; move.l #4,d1
  16414. ; jsr -198(a6)
  16415.  
  16416. ; move.l doslib,d0
  16417. ; move.l d0,a1
  16418. ; move.l 4.w,a6
  16419. ; jsr CloseLib(a6)
  16420.  
  16421.  move.l #$dff000,a6
  16422.  move.w #$8020,dmacon(a6)
  16423.  move.w #$f,dmacon(a6)
  16424.  
  16425. ; move.l 4.w,a6
  16426. ; lea VBLANKInt,a1
  16427. ; moveq #INTB_COPER,d0
  16428. ; jsr _LVORemIntServer(a6)
  16429.  
  16430. ; IFEQ CD32VER
  16431. ; move.l OLDKINT,$68.w
  16432. ; ENDC
  16433. ; move.w saveinters,d0
  16434. ; or.w #$c000,d0
  16435. ; move.w d0,intena(a6)
  16436.  clr.w $dff0a8
  16437.  clr.w $dff0b8
  16438.  clr.w $dff0c8
  16439.  clr.w $dff0d8
  16440.  
  16441.  
  16442. ; move.l oldview,a1
  16443. ; move.l a1,d0
  16444. ; move.l gfxbase,a6
  16445. ; jsr -$de(a6)
  16446.  
  16447. ; cmp.b #'s',mors
  16448. ; beq.s leaveold
  16449. ; move.w #$f8e,$dff1dc
  16450. ;leaveold:
  16451.  
  16452.  jsr RELEASELEVELMEM
  16453.  jsr RELEASESCRNMEM
  16454.  
  16455.  move.l #0,d0
  16456.  
  16457.  rts
  16458.  
  16459.  
  16460.  
  16461. intbase: dc.l 0
  16462. gfxbase: dc.l 0
  16463. oldview: dc.l 0
  16464. oldcopper: dc.l 0
  16465.  
  16466. stuff:
  16467.  
  16468.     Lea    gfxname(pc),a1    
  16469.     Moveq.l    #0,d0
  16470.     Move.l    $4.w,a6    
  16471.     Jsr    -$228(a6)
  16472.     add.w d1,RVAL1
  16473.     Move.l     d0,gfxbase
  16474.     Move.l    d0,a6                Use As Base Reg
  16475.     Move.l    34(a6),oldview
  16476.     move.l 38(a6),old
  16477.     move.l 38(a6),oldcopper
  16478.     rts
  16479.  
  16480. gfxname dc.b "graphics.library",0
  16481.  even
  16482. INTUNAME    dc.b    "intuition.library",0
  16483.  
  16484.  even
  16485.  
  16486.  
  16487.  cnop 0,64
  16488.  
  16489. Panel:
  16490.  dc.l 0
  16491.  
  16492. TimerScr: 
  16493. ;ds.b 40*64
  16494.  
  16495. scrntab:
  16496.  ds.b 16
  16497. val SET 32
  16498.  REPT 96
  16499.  dc.b val,val,val
  16500. val SET val+1
  16501.  ENDR
  16502.  ds.b 16
  16503.  
  16504. smallscrntab:
  16505. val SET 32
  16506.  REPT 96
  16507.  dc.b val,val
  16508. val SET val+1
  16509.  ENDR
  16510.  
  16511.  cnop 0,64
  16512. scrn:
  16513.  dc.l 0
  16514. ; incbin "ab3:includes/newborderRAW"
  16515. ; ds.b 80
  16516. scrn2:
  16517.  dc.l 0
  16518.  
  16519. ;flib:
  16520. ; incbin "ab3:includes/newborderRAW"
  16521. ; ds.b 80
  16522. ;flib2:
  16523. ; incbin "ab3:includes/newborderRAW"
  16524. ; ds.b 80
  16525.  
  16526. ; incbin "ab3:includes/newborderRAW"
  16527. ; ds.b 80
  16528.  
  16529. SCRNDRAWPT: dc.l 0
  16530. SCRNSHOWPT: dc.l 0
  16531.  
  16532. ; dcb.l 8,$33333333
  16533. ; dc.l 0
  16534. ; dc.l 0
  16535. ; 
  16536. ; dcb.l 8,$0f0f0f0f
  16537. ; dc.l 0
  16538. ; dc.l 0
  16539. ;
  16540. ; dcb.l 8,$00ff00ff
  16541. ; dc.l 0
  16542. ; dc.l 0
  16543. ; 
  16544. ; dcb.l 8,$0000ffff
  16545. ; dc.l 0
  16546. ; dc.l 0
  16547. ; 
  16548. ; dc.l 0,-1,0,-1,0,-1,0,-1
  16549. ; dc.l 0
  16550. ; dc.l 0
  16551. ; 
  16552. ; dc.l -1,-1,0,0,-1,-1,0,0
  16553. ; dc.l 0
  16554. ; dc.l 0
  16555. ; 
  16556. ; dc.l 0,0,-1,-1,-1,-1,-1,-1
  16557. ; dc.l 0
  16558. ; dc.l 0
  16559.  
  16560. NumTimes: dc.l 0
  16561. TimeCount: dc.l 0
  16562. oldtime: dc.l 0
  16563. counting: dc.b 0
  16564. oktodisplay: dc.b 0
  16565.  
  16566. INITTIMER:
  16567.  move.l #0,TimeCount
  16568.  move.l #0,NumTimes
  16569.  rts
  16570.  
  16571. STARTCOUNT:
  16572.  move.l d0,-(a7)
  16573.  move.l $dff004,d0
  16574.  and.l #$1ffff,d0
  16575.  move.l d0,oldtime
  16576.  st counting
  16577.  move.l (a7)+,d0
  16578.  rts
  16579.  
  16580. STOPCOUNT:
  16581.  move.l d0,-(a7)
  16582.  move.l $dff004,d0
  16583.  and.l #$1ffff,d0
  16584.  
  16585.  sub.l oldtime,d0
  16586.  cmp.l #-256,d0
  16587.  bge.s okcount
  16588.  add.l #313*256,d0
  16589. okcount:
  16590.  add.l d0,TimeCount
  16591.  addq.l #1,NumTimes
  16592.  clr.b counting
  16593.  move.l (a7)+,d0
  16594.  rts
  16595.  
  16596. STOPCOUNTNOADD:
  16597.  move.l d0,-(a7)
  16598.  move.l $dff004,d0
  16599.  and.l #$1ffff,d0
  16600.  
  16601.  sub.l oldtime,d0
  16602.  cmp.l #-256,d0
  16603.  bge.s okcount2
  16604.  add.l #313*256,d0
  16605. okcount2:
  16606.  add.l d0,TimeCount
  16607.  clr.b counting
  16608.  move.l (a7)+,d0
  16609.  rts
  16610.  
  16611. maxbot: dc.w 0
  16612. tstneg: dc.l 0
  16613.  
  16614. STOPTIMER:
  16615.  st oktodisplay
  16616.  rts
  16617.  
  16618. digits: incbin "numbers.inc"
  16619.  
  16620. COMPACTMAP: ds.l 257
  16621.  
  16622. BIGMAP: ds.l 256*10
  16623.  
  16624.  Section Sounds,CODE_C
  16625.  
  16626. nullcop:
  16627.  dc.w $106,$c40
  16628.  dc.w $180,0 
  16629.  dc.w $100,$0
  16630.  dc.w $ffff,$fffe
  16631.  
  16632. Scream:
  16633. ; incbin "ab3:sounds/Scream"
  16634. ; ds.w 100
  16635. EndScream:
  16636. LowScream:
  16637. ; incbin "ab3:sounds/LowScream"
  16638. ; ds.w 100
  16639. EndLowScream:
  16640. BaddieGun:
  16641. ; incbin "ab3:sounds/BaddieGun"
  16642. EndBaddieGun:
  16643. bass:
  16644. ; incbin "ab3:sounds/backbass+drum"
  16645. bassend:
  16646. Shoot:
  16647. ; incbin "ab3:sounds/fire!"
  16648. EndShoot:
  16649. Munch:
  16650. ; incbin "ab3:sounds/munch"
  16651. EndMunch:
  16652. PooGun:
  16653. ; incbin "ab3:sounds/shoot.dm"
  16654. EndPooGun:
  16655. Collect:
  16656. ; incbin "ab3:sounds/collect"
  16657. EndCollect:
  16658. DoorNoise:
  16659. ; incbin "ab3:sounds/newdoor"
  16660. EndDoorNoise:
  16661. Stomp:
  16662. ; incbin "ab3:sounds/footstep3"
  16663. EndStomp:
  16664. SwitchNoise:
  16665. ; incbin "ab3:sounds/switch"
  16666. EndSwitch:
  16667. Reload:
  16668. ; incbin "ab3:sounds/switch1.SFX"
  16669. EndReload:
  16670.  
  16671. CHEATFRAME:
  16672.  dc.b 26,20,33,27,17,12
  16673. ENDCHEAT:
  16674.  
  16675. NoAmmo:
  16676. ; incbin "ab3:sounds/noammo"
  16677. EndNoAmmo:
  16678. Splotch:
  16679. ; incbin "ab3:sounds/splotch"
  16680. EndSplotch:
  16681. SplatPop:
  16682. ; incbin "ab3:sounds/splatpop"
  16683. EndSplatPop:
  16684. Boom:
  16685. ; incbin "ab3:sounds/boom"
  16686. EndBoom:
  16687. Hiss:
  16688. ; incbin "ab3:sounds/newhiss"
  16689. EndHiss:
  16690. Howl1:
  16691. ; incbin "ab3:sounds/howl1"
  16692. EndHowl1:
  16693. Howl2:
  16694. ; incbin "ab3:sounds/howl2"
  16695. EndHowl2:
  16696. Pant:
  16697. ; incbin "ab3:sounds/pant"
  16698. EndPant:
  16699. Whoosh:
  16700. ; incbin "ab3:sounds/whoosh"
  16701. EndWhoosh:
  16702. ROAR:
  16703. ; incbin "ab3:sounds/bigscream"
  16704. EndROAR
  16705. whoosh:
  16706. ; incbin "ab3:sounds/flame"
  16707. Endwhoosh:
  16708.  SECTION music,code_c
  16709.  
  16710. UseAllChannels: dc.w 0
  16711.  
  16712. mt_init:
  16713.     move.l    mt_data,a0
  16714.     move.l    a0,a1
  16715.     add.l    #$3b8,a1
  16716.     moveq    #$7f,d0
  16717.     moveq    #0,d1
  16718. mt_loop:move.l    d1,d2
  16719.     subq.w    #1,d0
  16720. mt_lop2:move.b    (a1)+,d1
  16721.     cmp.b    d2,d1
  16722.     bgt.s    mt_loop
  16723.     dbf    d0,mt_lop2
  16724.     addq.b    #1,d2
  16725.  
  16726.     lea    mt_samplestarts(pc),a1
  16727.     asl.l    #8,d2
  16728.     asl.l    #2,d2
  16729.     add.l    #$43c,d2
  16730.     add.l    a0,d2
  16731.     move.l    d2,a2
  16732.     moveq    #$1e,d0
  16733. mt_lop3:
  16734.     clr.l    (a2)
  16735.     move.l    a2,(a1)+
  16736.     moveq    #0,d1
  16737.     move.w    42(a0),d1
  16738.     asl.l    #1,d1
  16739.     add.l    d1,a2
  16740.     add.l    #$1e,a0
  16741.     dbf    d0,mt_lop3
  16742.  
  16743.     or.b    #$2,$bfe001
  16744.     move.b    #$6,mt_speed
  16745.     clr.w    $dff0a8
  16746.     clr.w    $dff0b8
  16747.     clr.w    $dff0c8
  16748.     clr.w    $dff0d8
  16749.     clr.b    mt_songpos
  16750.     clr.b    mt_counter
  16751.     clr.w    mt_pattpos
  16752.     rts
  16753.  
  16754. mt_end:    clr.w    $dff0a8
  16755.     clr.w    $dff0b8
  16756.     clr.w    $dff0c8
  16757.     clr.w    $dff0d8
  16758.     move.w    #$f,$dff096
  16759.     rts
  16760.  
  16761. mt_music:
  16762.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  16763.     move.l    mt_data,a0
  16764.     addq.b    #$1,mt_counter
  16765.     move.b    mt_counter,D0
  16766.     cmp.b    mt_speed,D0
  16767.     blt.s    mt_nonew
  16768.     clr.b    mt_counter
  16769.     bra    mt_getnew
  16770.  
  16771. mt_nonew:
  16772.     lea    mt_voice1(pc),a6
  16773.     lea    $dff0a0,a5
  16774.     bsr    mt_checkcom
  16775.     tst.b UseAllChannels
  16776.     beq mt_endr
  16777.     lea    mt_voice2(pc),a6
  16778.     lea    $dff0b0,a5
  16779.     bsr    mt_checkcom
  16780.      lea    mt_voice3(pc),a6
  16781.     lea    $dff0c0,a5
  16782.     bsr    mt_checkcom
  16783.     lea    mt_voice4(pc),a6
  16784.     lea    $dff0d0,a5
  16785.     bsr    mt_checkcom
  16786.     bra    mt_endr
  16787.  
  16788. mt_arpeggio:
  16789.     moveq    #0,d0
  16790.     move.b    mt_counter,d0
  16791.     divs    #$3,d0
  16792.     swap    d0
  16793.     cmp.w    #$0,d0
  16794.     beq.s    mt_arp2
  16795.     cmp.w    #$2,d0
  16796.     beq.s    mt_arp1
  16797.  
  16798.     moveq    #0,d0
  16799.     move.b    $3(a6),d0
  16800.     lsr.b    #4,d0
  16801.     bra.s    mt_arp3
  16802. mt_arp1:moveq    #0,d0
  16803.     move.b    $3(a6),d0
  16804.     and.b    #$f,d0
  16805.     bra.s    mt_arp3
  16806. mt_arp2:move.w    $10(a6),d2
  16807.     bra.s    mt_arp4
  16808. mt_arp3:asl.w    #1,d0
  16809.     moveq    #0,d1
  16810.     move.w    $10(a6),d1
  16811.     lea    mt_periods(pc),a0
  16812.     moveq    #$24,d7
  16813. mt_arploop:
  16814.     move.w    (a0,d0.w),d2
  16815.     cmp.w    (a0),d1
  16816.     bge.s    mt_arp4
  16817.     addq.l    #2,a0
  16818.     dbf    d7,mt_arploop
  16819.     rts
  16820. mt_arp4:move.w    d2,$6(a5)
  16821.     rts
  16822.  
  16823. mt_getnew:
  16824.     move.l    mt_data,a0
  16825.     move.l    a0,a3
  16826.     move.l    a0,a2
  16827.     add.l    #$c,a3
  16828.     add.l    #$3b8,a2
  16829.     add.l    #$43c,a0
  16830.  
  16831.     moveq    #0,d0
  16832.     move.l    d0,d1
  16833.     move.b    mt_songpos,d0
  16834.     move.b    (a2,d0.w),d1
  16835.     asl.l    #8,d1
  16836.     asl.l    #2,d1
  16837.     add.w    mt_pattpos,d1
  16838.     clr.w    mt_dmacon
  16839.  
  16840.     lea    $dff0a0,a5
  16841.     lea    mt_voice1(pc),a6
  16842.     bsr    mt_playvoice
  16843.     tst.b UseAllChannels
  16844.     beq mt_setdma
  16845.     lea    $dff0b0,a5
  16846.     lea    mt_voice2(pc),a6
  16847.     bsr    mt_playvoice
  16848.     lea    $dff0c0,a5
  16849.     lea    mt_voice3(pc),a6
  16850.     bsr    mt_playvoice
  16851.     lea    $dff0d0,a5
  16852.     lea    mt_voice4(pc),a6
  16853.     bsr    mt_playvoice
  16854.     bra    mt_setdma
  16855.  
  16856. PROTCALC:
  16857. ;    include "ab3:source_4000/protcalc.s"
  16858.     incbin "ab3:includes/protcalc.bin"
  16859. ENDPROTCALC:
  16860.  
  16861. mt_playvoice:
  16862.     move.l    (a0,d1.l),(a6)
  16863.     addq.l    #4,d1
  16864.     moveq    #0,d2
  16865.     move.b    $2(a6),d2
  16866.     and.b    #$f0,d2
  16867.     lsr.b    #4,d2
  16868.     move.b    (a6),d0
  16869.     and.b    #$f0,d0
  16870.     or.b    d0,d2
  16871.     tst.b    d2
  16872.     beq.s    mt_setregs
  16873.     moveq    #0,d3
  16874.     lea    mt_samplestarts(pc),a1
  16875.     move.l    d2,d4
  16876.     subq.l    #$1,d2
  16877.     asl.l    #2,d2
  16878.     mulu    #$1e,d4
  16879.     move.l    (a1,d2.l),$4(a6)
  16880.     move.w    (a3,d4.l),$8(a6)
  16881.     move.w    $2(a3,d4.l),$12(a6)
  16882.     move.w    $4(a3,d4.l),d3
  16883.     tst.w    d3
  16884.     beq.s    mt_noloop
  16885.     move.l    $4(a6),d2
  16886.     asl.w    #1,d3
  16887.     add.l    d3,d2
  16888.     move.l    d2,$a(a6)
  16889.     move.w    $4(a3,d4.l),d0
  16890.     add.w    $6(a3,d4.l),d0
  16891.     move.w    d0,8(a6)
  16892.     move.w    $6(a3,d4.l),$e(a6)
  16893.     move.w    $12(a6),d0
  16894.     move.w d0,$8(a5)
  16895.     bra.s    mt_setregs
  16896. mt_noloop:
  16897.     move.l    $4(a6),d2
  16898.     add.l    d3,d2
  16899.     move.l    d2,$a(a6)
  16900.     move.w    $6(a3,d4.l),$e(a6)
  16901.     move.w    $12(a6),d0
  16902.     move.w d0,$8(a5)
  16903. mt_setregs:
  16904.     move.w    (a6),d0
  16905.     and.w    #$fff,d0
  16906.     beq    mt_checkcom2
  16907.     move.b    $2(a6),d0
  16908.     and.b    #$F,d0
  16909.     cmp.b    #$3,d0
  16910.     bne.s    mt_setperiod
  16911.     bsr    mt_setmyport
  16912.     bra    mt_checkcom2
  16913. mt_setperiod:
  16914.     move.w    (a6),$10(a6)
  16915.     and.w    #$fff,$10(a6)
  16916.     move.w    $14(a6),d0
  16917.     move.w    d0,$dff096
  16918.     clr.b    $1b(a6)
  16919.  
  16920.     move.l    $4(a6),(a5)
  16921.     move.w    $8(a6),$4(a5)
  16922.     move.w    $10(a6),d0
  16923.     and.w    #$fff,d0
  16924.     move.w    d0,$6(a5)
  16925.     move.w    $14(a6),d0
  16926.     or.w    d0,mt_dmacon
  16927.     bra    mt_checkcom2
  16928.  
  16929. mt_setdma:
  16930.      move.w #250,d0
  16931. mt_wait:
  16932.      add.w #1,testchip
  16933.      dbra d0,mt_wait
  16934.     move.w    mt_dmacon,d0
  16935.     or.w    #$8000,d0
  16936.     tst.b UseAllChannels
  16937.     bne.s .splib
  16938.     and.w #%1111111111110001,d0
  16939. .splib
  16940.     move.w    d0,$dff096
  16941.     move.w #250,d0
  16942. mt_wait2:
  16943.     add.w #1,testchip
  16944.     dbra    d0,mt_wait2
  16945.     lea    $dff000,a5
  16946.     tst.b UseAllChannels
  16947.     beq.s noall
  16948.     lea    mt_voice4(pc),a6
  16949.     move.l    $a(a6),$d0(a5)
  16950.     move.w    $e(a6),$d4(a5)
  16951.     lea    mt_voice3(pc),a6
  16952.     move.l    $a(a6),$c0(a5)
  16953.     move.w    $e(a6),$c4(a5)
  16954.     lea    mt_voice2(pc),a6
  16955.     move.l    $a(a6),$b0(a5)
  16956.     move.w    $e(a6),$b4(a5)
  16957. noall:
  16958.     lea    mt_voice1(pc),a6
  16959.     move.l    $a(a6),$a0(a5)
  16960.     move.w    $e(a6),$a4(a5)
  16961.  
  16962.     add.w    #$10,mt_pattpos
  16963.     cmp.w    #$400,mt_pattpos
  16964.     bne.s    mt_endr
  16965. mt_nex:    clr.w    mt_pattpos
  16966.     clr.b    mt_break
  16967.     addq.b    #1,mt_songpos
  16968.     and.b    #$7f,mt_songpos
  16969.     move.b    mt_songpos,d1
  16970. ;    cmp.b    mt_data+$3b6,d1
  16971. ;    bne.s    mt_endr
  16972. ;    move.b    mt_data+$3b7,mt_songpos
  16973. mt_endr:tst.b    mt_break
  16974.     bne.s    mt_nex
  16975.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  16976.     rts
  16977.  
  16978. mt_setmyport:
  16979.     move.w    (a6),d2
  16980.     and.w    #$fff,d2
  16981.     move.w    d2,$18(a6)
  16982.     move.w    $10(a6),d0
  16983.     clr.b    $16(a6)
  16984.     cmp.w    d0,d2
  16985.     beq.s    mt_clrport
  16986.     bge.s    mt_rt
  16987.     move.b    #$1,$16(a6)
  16988.     rts
  16989. mt_clrport:
  16990.     clr.w    $18(a6)
  16991. mt_rt:    rts
  16992.  
  16993. CODESTORE: dc.l 0
  16994.  
  16995. mt_myport:
  16996.     move.b    $3(a6),d0
  16997.     beq.s    mt_myslide
  16998.     move.b    d0,$17(a6)
  16999.     clr.b    $3(a6)
  17000. mt_myslide:
  17001.     tst.w    $18(a6)
  17002.     beq.s    mt_rt
  17003.     moveq    #0,d0
  17004.     move.b    $17(a6),d0
  17005.     tst.b    $16(a6)
  17006.     bne.s    mt_mysub
  17007.     add.w    d0,$10(a6)
  17008.     move.w    $18(a6),d0
  17009.     cmp.w    $10(a6),d0
  17010.     bgt.s    mt_myok
  17011.     move.w    $18(a6),$10(a6)
  17012.     clr.w    $18(a6)
  17013. mt_myok:move.w    $10(a6),$6(a5)
  17014.     rts
  17015. mt_mysub:
  17016.     sub.w    d0,$10(a6)
  17017.     move.w    $18(a6),d0
  17018.     cmp.w    $10(a6),d0
  17019.     blt.s    mt_myok
  17020.     move.w    $18(a6),$10(a6)
  17021.     clr.w    $18(a6)
  17022.     move.w    $10(a6),$6(a5)
  17023.     rts
  17024.  
  17025. mt_vib:    move.b    $3(a6),d0
  17026.     beq.s    mt_vi
  17027.     move.b    d0,$1a(a6)
  17028.  
  17029. mt_vi:    move.b    $1b(a6),d0
  17030.     lea    mt_sin(pc),a4
  17031.     lsr.w    #$2,d0
  17032.     and.w    #$1f,d0
  17033.     moveq    #0,d2
  17034.     move.b    (a4,d0.w),d2
  17035.     move.b    $1a(a6),d0
  17036.     and.w    #$f,d0
  17037.     mulu    d0,d2
  17038.     lsr.w    #$6,d2
  17039.     move.w    $10(a6),d0
  17040.     tst.b    $1b(a6)
  17041.     bmi.s    mt_vibmin
  17042.     add.w    d2,d0
  17043.     bra.s    mt_vib2
  17044. mt_vibmin:
  17045.     sub.w    d2,d0
  17046. mt_vib2:move.w    d0,$6(a5)
  17047.     move.b    $1a(a6),d0
  17048.     lsr.w    #$2,d0
  17049.     and.w    #$3c,d0
  17050.     add.b    d0,$1b(a6)
  17051.     rts
  17052.  
  17053. mt_nop:    move.w    $10(a6),$6(a5)
  17054.     rts
  17055.  
  17056.  
  17057. mt_checkcom:
  17058.     move.w    $2(a6),d0
  17059.     and.w    #$fff,d0
  17060.     beq.s    mt_nop
  17061.     move.b    $2(a6),d0
  17062.     and.b    #$f,d0
  17063.     tst.b    d0
  17064.     beq    mt_arpeggio
  17065.     cmp.b    #$1,d0
  17066.     beq.s    mt_portup
  17067.     cmp.b    #$2,d0
  17068.     beq    mt_portdown
  17069.     cmp.b    #$3,d0
  17070.     beq    mt_myport
  17071.     cmp.b    #$4,d0
  17072.     beq    mt_vib
  17073.     move.w    $10(a6),$6(a5)
  17074.     cmp.b    #$a,d0
  17075.     beq.s    mt_volslide
  17076.     rts
  17077.  
  17078. mt_volslide:
  17079.     moveq    #0,d0
  17080.     move.b    $3(a6),d0
  17081.     lsr.b    #4,d0
  17082.     tst.b    d0
  17083.     beq.s    mt_voldown
  17084.     add.w    d0,$12(a6)
  17085.     cmp.w    #$40,$12(a6)
  17086.     bmi.s    mt_vol2
  17087.     move.w    #$40,$12(a6)
  17088. mt_vol2:move.w    $12(a6),d0
  17089.     move.w d0,$8(a5)
  17090.     rts
  17091.  
  17092. mt_voldown:
  17093.     moveq    #0,d0
  17094.     move.b    $3(a6),d0
  17095.     and.b    #$f,d0
  17096.     sub.w    d0,$12(a6)
  17097.     bpl.s    mt_vol3
  17098.     clr.w    $12(a6)
  17099. mt_vol3:move.w    $12(a6),d0
  17100.     move.w d0,$8(a5)
  17101.     rts
  17102.  
  17103. mt_portup:
  17104.     moveq    #0,d0
  17105.     move.b    $3(a6),d0
  17106.     sub.w    d0,$10(a6)
  17107.     move.w    $10(a6),d0
  17108.     and.w    #$fff,d0
  17109.     cmp.w    #$71,d0
  17110.     bpl.s    mt_por2
  17111.     and.w    #$f000,$10(a6)
  17112.     or.w    #$71,$10(a6)
  17113. mt_por2:move.w    $10(a6),d0
  17114.     and.w    #$fff,d0
  17115.     move.w    d0,$6(a5)
  17116.     rts
  17117.  
  17118. mt_portdown:
  17119.     clr.w    d0
  17120.     move.b    $3(a6),d0
  17121.     add.w    d0,$10(a6)
  17122.     move.w    $10(a6),d0
  17123.     and.w    #$fff,d0
  17124.     cmp.w    #$358,d0
  17125.     bmi.s    mt_por3
  17126.     and.w    #$f000,$10(a6)
  17127.     or.w    #$358,$10(a6)
  17128. mt_por3:move.w    $10(a6),d0
  17129.     and.w    #$fff,d0
  17130.     move.w    d0,$6(a5)
  17131.     rts
  17132.  
  17133. mt_checkcom2:
  17134.     move.b    $2(a6),d0
  17135.     and.b    #$f,d0
  17136.     cmp.b    #$e,d0
  17137.     beq.s    mt_setfilt
  17138.     cmp.b    #$d,d0
  17139.     beq.s    mt_pattbreak
  17140.     cmp.b    #$b,d0
  17141.     beq.s    mt_posjmp
  17142.     cmp.b    #$c,d0
  17143.     beq.s    mt_setvol
  17144.     cmp.b    #$f,d0
  17145.     beq.s    mt_setspeed
  17146.     rts
  17147.  
  17148. mt_setfilt:
  17149.     move.b    $3(a6),d0
  17150.     and.b    #$1,d0
  17151.     asl.b    #$1,d0
  17152.     and.b    #$fd,$bfe001
  17153.     or.b    d0,$bfe001
  17154.     rts
  17155. mt_pattbreak:
  17156.     not.b    mt_break
  17157.     rts
  17158. mt_posjmp:
  17159.     st reachedend
  17160.     move.b    $3(a6),d0
  17161.     subq.b    #$1,d0
  17162.     move.b    d0,mt_songpos
  17163.     not.b    mt_break
  17164.     rts
  17165. mt_setvol:
  17166.     cmp.b    #$40,$3(a6)
  17167.     ble.s    mt_vol4
  17168.     move.b    #$40,$3(a6)
  17169. mt_vol4:move.b    $3(a6),d0
  17170.     move.w d0,$8(a5)
  17171.     rts
  17172. mt_setspeed:
  17173.     cmp.b    #$1f,$3(a6)
  17174.     ble.s    mt_sets
  17175.     move.b    #$1f,$3(a6)
  17176. mt_sets:move.b    $3(a6),d0
  17177.     beq.s    mt_rts2
  17178.     move.b    d0,mt_speed
  17179.     clr.b    mt_counter
  17180. mt_rts2:rts
  17181.  
  17182. mt_sin:
  17183.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  17184.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  17185.  
  17186. mt_periods:
  17187.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  17188.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  17189.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  17190.  DC.w $007f,$0078,$0071,$0000,$0000
  17191.  
  17192. reachedend: dc.b 0
  17193. mt_speed:    DC.b    6
  17194. mt_songpos:    DC.b    0
  17195. mt_pattpos:    DC.w    0
  17196. mt_counter:    DC.b    0
  17197.  
  17198. mt_break:    DC.b    0
  17199. mt_dmacon:    DC.w    0
  17200. mt_samplestarts:DS.L    $1f
  17201. mt_voice1:    DS.w    10
  17202.         DC.w    1
  17203.         DS.w    3
  17204. mt_voice2:    DS.w    10
  17205.         DC.w    2
  17206.         DS.w    3
  17207. mt_voice3:    DS.w    10
  17208.         DC.w    4
  17209.         DS.w    3
  17210. mt_voice4:    DS.w    10
  17211.         DC.w    8
  17212.         DS.w    3
  17213.  
  17214. PLR1_dead: dc.w 0
  17215. PLR2_dead: dc.w 0
  17216. PLR3_dead: dc.w 0
  17217.  
  17218. CHEATPTR: dc.l 0
  17219. CHEATNUM: dc.l 0
  17220.  
  17221. testchip: dc.w 0
  17222.  
  17223. LEVELMUSIC: dc.l 0
  17224.  
  17225. ;/* End of File */
  17226. mt_data: dc.l 0
  17227. tstchip: dc.l 0
  17228.  include "SERIAL_NIGHTMARE"
  17229.  
  17230. ingame:
  17231. ; incbin "work:temp/newmusic/testonechan"
  17232. gameover: 
  17233. ;incbin "ab3:includes/gameover"
  17234. welldone: incbin "ab3:includes/quietwelldone"
  17235.  
  17236.  
  17237.